[Bug fortran/24245] New: -fdump-parse-tree gives ICE for CONTAINED functions

["erik dot edelmann at iki dot fi" <gcc-bugzilla at gcc dot gnu dot org>]

$ cat hum.f90
program hum

contains

    function hu()
    end function hu

end program hum
$ gfortran -fdump-parse-tree hum.f90 

        Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4)
        symtree: hu  Ambig 0
        symbol hu (REAL 4)(PROCEDURE UNKNOWN-INTENT UNKNOWN-ACCESS
INTERNAL-PROC FUNCTION IMPLICIT-TYPE)
        result: hu

        symtree: hum  Ambig 0
        symbol hum (UNKNOWN 0)(PROGRAM UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC)



        CONTAINS

          Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4)
          procedure name = hu
hum.f90:0: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
          symtree: hu  Ambig 0


-- 
           Summary: -fdump-parse-tree gives ICE for CONTAINED functions
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: erik dot edelmann at iki dot fi


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