[Bug fortran/21977] ice-on-valid-code, segmentation fault

[c dot lemmen at fz-juelich dot de]

------- Additional Comments From c dot lemmen at fz-juelich dot de  2005-06-09 15:03 -------
I concur, but you don't need it in this reduced testcase (my fault for leaving
the statement there). Have a go at this:


        FUNCTION dawson_v(x)
        IMPLICIT NONE
        REAL, DIMENSION(:), INTENT(IN) :: x
        REAL, DIMENSION(size(x)) :: dawson_v
        dawson_v=1.0
        CONTAINS
!BL
        FUNCTION dawsonseries_v(xin)
        IMPLICIT NONE
        REAL, DIMENSION(:), INTENT(IN) :: xin
        REAL, DIMENSION(size(xin)) :: dawsonseries_v
        dawsonseries_v=1.0
        END FUNCTION dawsonseries_v
        END FUNCTION dawson_v


-- 


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