diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/nesting_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/nesting_2.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/nesting_2.f90 b/gcc/testsuite/gfortran.dg/nesting_2.f90 new file mode 100644 index 00000000000..a260c04c732 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/nesting_2.f90 @@ -0,0 +1,16 @@ +! 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 + dawson_v = 1.0 + + CONTAINS + FUNCTION dawsonseries_v() + IMPLICIT NONE + REAL, DIMENSION(1) :: dawsonseries_v + dawsonseries_v=1.0 + END FUNCTION dawsonseries_v +END FUNCTION dawson_v |