gcc/testsuite/gfortran.dg/nesting_3.f90

   1 ! check to make the nested function dawsonseries_v gets the correct
   2 ! fake return decl and that the outer (dawson_v) has an assignment of
   3 ! just the fake return decl for real and not the inner's return decl.
   4 ! { dg-do compile }
   5 FUNCTION dawson_v()
   6   IMPLICIT NONE
   7   REAL,DIMENSION(1)  :: dawson_v
   8   dawson_v = 1.0
   9   CONTAINS
  10     FUNCTION dawsonseries_v()
  11       IMPLICIT NONE
  12       REAL, DIMENSION(1) :: dawsonseries_v
  13       dawsonseries_v=1.0
  14     END FUNCTION dawsonseries_v
  15 END FUNCTION dawson_v