[Bug fortran/38252] New: Empty function with CONTAINS triggers Internal Error

["domob at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

This program gives an "Internal Error" pointing at the CONTAINS:

INTEGER FUNCTION test ()
CONTAINS
END FUNCTION test

It works with gfortran 4.3.1.  Replacing the FUNCTION by a SUBROUTINE gets rid
of the error.  Additionally, this program also works:

FUNCTION test ()
  INTEGER :: test
CONTAINS
END FUNCTION test


-- 
           Summary: Empty function with CONTAINS triggers Internal Error
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: domob at gcc dot gnu dot org


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