21 lines
425 B
Fortran
21 lines
425 B
Fortran
|
! { dg-do run }
|
||
|
! { dg-additional-sources c_ptr_tests_8_funcs.c }
|
||
|
program main
|
||
|
use iso_c_binding, only: c_ptr
|
||
|
implicit none
|
||
|
interface
|
||
|
function create() bind(c)
|
||
|
use iso_c_binding, only: c_ptr
|
||
|
type(c_ptr) :: create
|
||
|
end function create
|
||
|
subroutine show(a) bind(c)
|
||
|
import :: c_ptr
|
||
|
type(c_ptr), VALUE :: a
|
||
|
end subroutine show
|
||
|
end interface
|
||
|
|
||
|
type(c_ptr) :: ptr
|
||
|
ptr = create()
|
||
|
call show(ptr)
|
||
|
end program main
|