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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [nesting_3.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! check to make the nested function dawsonseries_v gets the correct`	`! check to make the nested function dawsonseries_v gets the correct`
`! fake return decl and that the outer (dawson_v) has an assignment of`	`! fake return decl and that the outer (dawson_v) has an assignment of`
`! just the fake return decl for real and not the inner's return decl.`	`! just the fake return decl for real and not the inner's return decl.`
`! { dg-do compile }`	`! { dg-do compile }`
`FUNCTION dawson_v()`	`FUNCTION dawson_v()`
`IMPLICIT NONE`	`IMPLICIT NONE`
`REAL,DIMENSION(1) :: dawson_v`	`REAL,DIMENSION(1) :: dawson_v`
`dawson_v = 1.0`	`dawson_v = 1.0`
`CONTAINS`	`CONTAINS`
`FUNCTION dawsonseries_v()`	`FUNCTION dawsonseries_v()`
`IMPLICIT NONE`	`IMPLICIT NONE`
`REAL, DIMENSION(1) :: dawsonseries_v`	`REAL, DIMENSION(1) :: dawsonseries_v`
`dawsonseries_v=1.0`	`dawsonseries_v=1.0`
`END FUNCTION dawsonseries_v`	`END FUNCTION dawsonseries_v`
`END FUNCTION dawson_v`	`END FUNCTION dawson_v`