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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_decl_24.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
!
! Contributed by James van Buskirk
!
! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/44d572766bce0e6f/
 
  use iso_c_binding
  implicit none
 
  abstract interface
    subroutine all_subs(x,y) bind(C)
      use iso_c_binding
      real(c_float) :: x,y
    end subroutine all_subs
  end  interface
 
  procedure(all_subs) :: sub
  type(C_FUNPTR) :: s
 
  s = c_funloc (sub)
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! Contributed by James van Buskirk`
4			`!`
5			`! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/44d572766bce0e6f/`
6
7			`use iso_c_binding`
8			`implicit none`
9
10			`abstract interface`
11			`subroutine all_subs(x,y) bind(C)`
12			`use iso_c_binding`
13			`real(c_float) :: x,y`
14			`end subroutine all_subs`
15			`end interface`
16
17			`procedure(all_subs) :: sub`
18			`type(C_FUNPTR) :: s`
19
20			`s = c_funloc (sub)`
21
22			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_decl_24.f90] - Blame information for rev 694