[Bug fortran/21977] nested function returning array

[pinskia at gcc dot gnu dot org]

------- Comment #5 from pinskia at gcc dot gnu dot org  2006-01-02 04:00 -------
Also the following source fails in a slightly different way, an ICE in
fold_convert:
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


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21977