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.
11 FUNCTION dawsonseries_v()
13 REAL, DIMENSION(1) :: dawsonseries_v
15 END FUNCTION dawsonseries_v