[Bug fortran/39896] New: ICE with -fwhole-file

["dfranke at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

The code below (extracted from a large application) gives an ICE if compiled
with -fwhole-file. 

$> cat ice.for
      PROGRAM xxx
      implicit Real*8 (a-h,o-z)

      PARAMETER   ( NU    = 512*101 + 10*101 + 2*512 )

      DIMENSION    AJ(2048)
      DIMENSION    AIS(512), ER1(512)
      DIMENSION    U(NU), U2(NU)

      CALL PTIC10(U,U2,ER1,NR0,N,AJ,AIS)
 456  CONTINUE
      GO TO 456
      END

      SUBROUTINE PTIC10(A,A1,ER,N,M,AJ,AIS)
      implicit real*8 (a-h,o-z)
      DIMENSION ER(M),A(M,N),A1(M,N),AJ(M),AIS(M)
      END

$> gfortran-svn -c -fwhole-file ice.for
f951: internal compiler error: Segmentation fault

$> gfortran-svn -v
gcc version 4.5.0 20090424


-- 
           Summary: ICE with -fwhole-file
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dfranke at gcc dot gnu dot org


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