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/] [empty_function_1.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR fortran/38252
! FUNCTION rejected if both specification and execution part are empty
!
! Contributed by Daniel Kraft 
 
INTEGER FUNCTION test ()
CONTAINS
END FUNCTION test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/38252`
4			`! FUNCTION rejected if both specification and execution part are empty`
5			`!`
6			`! Contributed by Daniel Kraft`
7
8			`INTEGER FUNCTION test ()`
9			`CONTAINS`
10			`END FUNCTION test`

Browse

Tools

Subversion Repositories openrisc_me

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