diff options
| author | Andrew Pinski <pinskia@gcc.gnu.org> | 2006-01-09 12:18:37 -0800 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2006-01-09 12:18:37 -0800 |
| commit | 76150104aa8575fb795aed3648046e22618bc2a3 (patch) | |
| tree | 0564a7512972357450d3cac9f4ad95126f4a2a72 | |
| parent | 90b2f8b64066bfe6fdf6d67e13dde628548e82f8 (diff) | |
| download | gcc-76150104aa8575fb795aed3648046e22618bc2a3.zip gcc-76150104aa8575fb795aed3648046e22618bc2a3.tar.gz gcc-76150104aa8575fb795aed3648046e22618bc2a3.tar.bz2 | |
Fix the tests I just committed to be the correct tests.
From-SVN: r109506
| -rw-r--r-- | gcc/testsuite/gfortran.dg/nesting_2.f90 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/nesting_3.f90 | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/nesting_2.f90 b/gcc/testsuite/gfortran.dg/nesting_2.f90 index e3ec9c9..a260c04 100644 --- a/gcc/testsuite/gfortran.dg/nesting_2.f90 +++ b/gcc/testsuite/gfortran.dg/nesting_2.f90 @@ -1,6 +1,7 @@ ! check to make the nested function dawsonseries_v gets the correct ! 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. +! { dg-do compile } FUNCTION dawson_v() IMPLICIT NONE REAL :: dawson_v diff --git a/gcc/testsuite/gfortran.dg/nesting_3.f90 b/gcc/testsuite/gfortran.dg/nesting_3.f90 index 0a052da..234f50e 100644 --- a/gcc/testsuite/gfortran.dg/nesting_3.f90 +++ b/gcc/testsuite/gfortran.dg/nesting_3.f90 @@ -1,6 +1,7 @@ ! check to make the nested function dawsonseries_v gets the correct ! 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. +! { dg-do compile } FUNCTION dawson_v() IMPLICIT NONE REAL,DIMENSION(1) :: dawson_v |