Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "test" } }