OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix the tests I just committed to be the correct tests.

Browse Source 
From-SVN: r109506
This commit is contained in:
Andrew Pinski 2006-01-09 12:18:37 -08:00
parent 90b2f8b640
commit 76150104aa
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/testsuite/gfortran.dg/nesting_2.f90
View File

@ -1,6 +1,7 @@
! 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 }
FUNCTION dawson_v() FUNCTION dawson_v()
IMPLICIT NONE IMPLICIT NONE
REAL :: dawson_v REAL :: dawson_v

1
gcc/testsuite/gfortran.dg/nesting_3.f90
View File

@ -1,6 +1,7 @@
! 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 }
FUNCTION dawson_v() FUNCTION dawson_v()
IMPLICIT NONE IMPLICIT NONE
REAL,DIMENSION(1) :: dawson_v REAL,DIMENSION(1) :: dawson_v