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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 47352: [F03] ICE with proc-pointers in generic procedures
!
! Contributed by James van Buskirk
! cf. http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/bbaf59ffd7c372e9
 
   implicit none
 
   abstract interface
      real function f()
      end function f
   end interface
 
   procedure(f) :: f1
 
   interface gen
      procedure f1
   end interface gen
 
   write(*,*) gen()
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 47352: [F03] ICE with proc-pointers in generic procedures`
4			`!`
5			`! Contributed by James van Buskirk`
6			`! cf. http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/bbaf59ffd7c372e9`
7
8			`implicit none`
9
10			`abstract interface`
11			`real function f()`
12			`end function f`
13			`end interface`
14
15			`procedure(f) :: f1`
16
17			`interface gen`
18			`procedure f1`
19			`end interface gen`
20
21			`write(,) gen()`
22			`end`

Browse

Tools

Subversion Repositories openrisc

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