URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr42119.f90] - Rev 322
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
module Test
use ISO_C_BINDING
contains
subroutine Callback(arg) bind(C)
integer(C_INT) :: arg
end subroutine Callback
subroutine Check(proc)
type(C_FUNPTR) :: proc
end subroutine Check
end module Test
program Main
use Test
type(C_FUNPTR) :: proc
call Check(C_FUNLOC(Callback))
end program Main
Go to most recent revision | Compare with Previous | Blame | View Log