[Bug fortran/23202] New: internal compiler error: tree check

[dir at lanl dot gov]

Here is a second bug that showed up when I tried to reduce the test case for bug
23201 -

[dranta:~/tests/gfortran-D] dir% gfortran -O2 -c zipp01.f
 In file zipp01.f:42

      COMMON /SIZ/ DUM4,IDUM4(4),NWPART                                 
                 1
Warning: Named COMMON block 'siz' at (1) shall be of the same size
 In file zipp01.f:40

      COMMON /IOSUBS/ IDUMMY(12),NWORDS,IBA,NBAXO,IPOS,                 
                    1
Warning: Named COMMON block 'iosubs' at (1) shall be of the same size
 In file zipp01.f:39

      COMMON /SUBSTR/ NPHASE,NSUB,IDUM1,NPHS2                           
                    1
Warning: Named COMMON block 'substr' at (1) shall be of the same size
zipp01.f: In function 'zipp':
zipp01.f:29: internal compiler error: tree check: expected ssa_name, have
var_decl in verify_ssa, at tree-ssa.c:746
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

[dranta:~/tests/gfortran-D] dir% cat zipp01.f
      SUBROUTINE SUBZIP
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      INTEGER STOTAL
      DOUBLE PRECISION NINE,NINETH,MILLON
      COMMON /FLTNUM/ ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,
     1   NINE,TEN,HALF,THIRD,FOURTH,FIFTH,SIXTH,SEVNTH,EIGHTH,NINETH,
     2   TENTH,HUNDRD,THOU,MILLON
      COMMON /TAPES/ NOUT,NIN,NTAPE1,NTAPE2,NTAPE3,NTAPE4,NTAPE5,NTAPE6,
     1   NTAPE7,NTAPE8,NTAPE9,NTAP10,NTAP20
      COMMON /IOINFO/ JPRINT
      COMMON /IOSTRG/ STRG(128)
      CHARACTER*12 STRG
      COMMON /DOUBLE/ ITWO,MAXBUF,MAXCOM
      COMMON /SIZ/ DUM,NELPZ1,LVEND1,NTEST,NLZ,IDUM1
      COMMON /SUBSTR/ NPHASE,NSUB
      COMMON /IOCNTL/ NEXTAD,ISUB0,ISUB(62)
      COMMON /IOSUBS/ IDUMMY(17),ISIZ
      PARAMETER ( MAXNP=600, MAXMBC=300)
      COMMON /BOUND/ STOTAL,NB(MAXNP),IJKB(MAXNP),NOBC,NBBC(MAXMBC),
     1   BCVAL(MAXMBC)
C
      COMMON /ELINFO/ NUMEL
      COMMON /IZIP/ LVABL(480),KUREL,LPREQ,LZ,LDEST(953),MVABL(480),
     1   LTEMP(480)
      RETURN
C
      END
      SUBROUTINE ZIPP
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      COMMON /FLTNUM/ ZERO
      COMMON /TAPES/ NOUT,NIN,NTAPE1,NTAPE2,NTAPE3,NTAPE4,NTAPE5,NTAPE6,
     1   NTAPE7,NTAPE8,NTAPE9,NTAP10,NTAP20
      COMMON /IOINFO/ JPRINT
      COMMON /ELINFO/ NUMEL
      COMMON /IZIP/ LVABL(68),KUREL,LPREQ,LZ,LDEST(121),MVABL(480,3),
     1   LTEMP(28)
      COMMON /IOCNTL/ NEXTAD,ISUB0,ISUB(62)
      COMMON /SUBSTR/ NPHASE,NSUB,IDUM1,NPHS2
      COMMON /IOSUBS/ IDUMMY(12),NWORDS,IBA,NBAXO,IPOS,
     1   KURPA,ISIZ,NSP,NVABZ,LCUREQ,NPAR,MAXPA,NUMEL1,KTBUF,KPART
      COMMON /SIZ/ DUM4,IDUM4(4),NWPART
      COMMON /DOUBLE/ ITWO,MAXBUF,MAXCOM
      DIMENSION NIX(1)
      DIMENSION INOUT(28),NWPART(28)
C
      COMMON  ELPA(1)
      EQUIVALENCE (NIX(1),ELPA(1))
C
      NFUNC(I,J)=I+(J*(J-1))/2
      LFUNC(I)=INT(SQRT(DFLOAT(8*I+1))-1)/2

      WRITE(NOUT,450) DT,NVABZ,MAXPA,NPAZ,NIZZ,NBUFFA,MPART
      DO 186 I=1,NPART
  186 INOUT(I)=0
      NWPART(1) = ((NFUNC(0,LTEMP(1)+1)+63)/64)*64
      DO 187 I=2,MPART
  187 NWPART(I)=((NFUNC(0,LTEMP(I)+1)-NFUNC(0,LTEMP(I-1)+1)+63)/64)*64
      WRITE(NOUT,500)(NWPART(I),I=1,5)
      RETURN
C
C        FORMAT STATEMENTS
C
  450 FORMAT('0  TIME IN PREFRONT = ',F11.3,' SEC',/,
     1   3X,'TOTAL NUMBER OF D.O.F = ',I9,/,
     2   3X,'D.O.F. IN FRONT = ',I5,/,
     3   3X,'MAXIMUM ACTIVE STORAGE = ',I9,/,
     4   3X,'TOTAL NICKNAME STORAGE = ',I9,/,
     5   3X,'BUFFER LENGTH = ',I9,/,
     6   3X,'MAXIMUM NUMBER OF STIFFNESS PARTITIONS = ',I5)
  500 FORMAT(' NWPART = ',5I10)
C
      END
[dranta:~/tests/gfortran-D] dir%

-- 
           Summary: internal compiler error: tree check
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.9.0


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