diff options
| -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 |