[Bug fortran/21977] nested function returning array

[pinskia at gcc dot gnu dot org]

------- Comment #4 from pinskia at gcc dot gnu dot org  2006-01-02 03:59 -------
Reduced testcase which shows that the outer function does not have to return an
array to get the ICE:
FUNCTION dawson_v()
  IMPLICIT NONE
  REAL  :: dawson_v
  CONTAINS
    FUNCTION dawsonseries_v()
      IMPLICIT NONE
      REAL, DIMENSION(1) :: dawsonseries_v
      dawsonseries_v=1.0
    END FUNCTION dawsonseries_v
END FUNCTION dawson_v


-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|2006-01-02 03:53:40         |2006-01-02 03:59:42
               date|                            |


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