URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr42119.f90] - Blame information for rev 318

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2
3			`module Test`
4			`use ISO_C_BINDING`
5
6			`contains`
7
8			`subroutine Callback(arg) bind(C)`
9			`integer(C_INT) :: arg`
10			`end subroutine Callback`
11
12			`subroutine Check(proc)`
13			`type(C_FUNPTR) :: proc`
14			`end subroutine Check`
15
16			`end module Test`
17
18
19			`program Main`
20			`use Test`
21			`type(C_FUNPTR) :: proc`
22
23			`call Check(C_FUNLOC(Callback))`
24			`end program Main`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr42119.f90] - Blame information for rev 318