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
