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 } 5FUNCTION dawson_v() 6 IMPLICIT NONE 7 REAL :: dawson_v 8 dawson_v = 1.0 9 10 CONTAINS 11 FUNCTION dawsonseries_v() 12 IMPLICIT NONE 13 REAL, DIMENSION(1) :: dawsonseries_v 14 dawsonseries_v=1.0 15 END FUNCTION dawsonseries_v 16END FUNCTION dawson_v 17