This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/20052] New: Internal error pb:get_indirect_ref_operands at tree-ssa-operands.c:1449
- From: "jean-pierre dot benoit at irsn dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 18 Feb 2005 11:19:04 -0000
- Subject: [Bug fortran/20052] New: Internal error pb:get_indirect_ref_operands at tree-ssa-operands.c:1449
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
Hi,
I try to compile a FORTRAN 77 code with gfortran and i encounter the following
problem. Unfortunatly, I cant use g77 because I meet the other problem with
#[Bug libf2c/16970] long write times via NFS (with g77-3.2.2, g77-3.3.5 and
g77-3.4.3).
[benoit@node25 erreur_de_compil_gcc-4.0]$ make
/produits/gcc-4.0-20050213/bin/gfortran -c -O2 -v -o LIMPLI.o LIMPLI.f
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../gcc-4.0-20050213/configure --prefix=/ --enable-languages=c++,f95
Thread model: posix
gcc version 4.0.0 20050213 (experimental)
/export/produits01/gcc-4.0-20050213/bin/../libexec/gcc/i686-pc-linux-gnu/4.0.0/f951 LIMPLI.f -ffixed-form -quiet -dumpbase LIMPLI.f -mtune=pentiumpro -auxbase-strip LIMPLI.o -O2 -version -o /tmp/ccDNH6sP.s
GNU F95 version 4.0.0 20050213 (experimental) (i686-pc-linux-gnu)
compiled by GNU C version 3.2.2 20030222 (Red Hat Linux 3.2.2-5).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
LIMPLI.f: In function 'limpli':
LIMPLI.f:1: internal compiler error: in get_indirect_ref_operands, at
tree-ssa-operands.c:1449
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
make: *** [LIMPLI.o] Erreur 1
Here is the subroutine:
SUBROUTINE LIMPLI (LRET)
C SEGMENT /PV/ ( VPVG .PV , VPVD .PV
C 1 , VCAT *I , VTYP *I , VLNI*I
C 2 , VCST *I - UPARM *I
C 3 , WPBI .PB , WPBE .PB , WPBBL.PB
C 4 , WTVD .TV - UTVEXT.TV
C 5 , WTVI .TV - UTVAFF.TV
C 6 , WPVSUB.PV - UTVSUB.TV
C 7 , WPVMIN.PV , WPVMAX.PV , WPVCOM.PV
C 8 , WPVD .PV , WPVT .PV , WPVHOM.PV
C 9 , WPV .PV , WPVE .PV
C A , VSYM*(LVSY))
C SEGMENT PV1.PV,PV2.PV,PV3.PV,PV4.PV
C SEGMENT TV(0).PV,TV1(0).PV,TV2(0).PV,TV3(0).PV,TV4(0).PV
COMMON/OOOCOM/OOA(1),OOT,OOV(8)
INTEGEROOA,OOT,OOV,OOO,OO1,OO2,OO3,OO4,PV,OO5
INTEGERPV1,PV2,PV3,PV4,TV,TV1,TV2,TV3,TV4
INTEGEROOI(1)
CHARACTER*4OOH
EQUIVALENCE(OOV(1),OOI(1),OOH)
CHARACTER*1 HSY1(20*66+8)
CHARACTER*80 HSYM
EQUIVALENCE (HSYM,HSY1(1))
COMMON /LSYCOM/ LHSY
COMMON /LSYCOH/ HSY1
EQUIVALENCE (PSPE(1),PPARO)
INTEGER PSPE(25)
1 ,PPARO,PPARF,PVIRG,PEGAL,PPVIR,PAPOS,PETCO,P2PNT,PPOIN,PEXPO
2 ,PASTE,PSLAS,PPLUS,PMOIN,PLT ,PGT ,PEQ ,PGE ,PLE ,PNE
3 ,PNOT ,PAND ,POR ,PEQV ,PNEQV
4 ,PNUM ,PVOC ,PVOC1,PVOC2,PVOC3,PVBLAN
COMMON /LSPCOM/ NSPE,NIVP,ITYP,ILNI,ICST
1 ,PPARO,PPARF,PVIRG,PEGAL,PPVIR,PAPOS,PETCO,P2PNT,PPOIN,PEXPO
2 ,PASTE,PSLAS,PPLUS,PMOIN,PLT ,PGT ,PEQ ,PGE ,PLE ,PNE
3 ,PNOT ,PAND ,POR ,PEQV ,PNEQV
4 ,PNUM(10) ,PVOC ,PVOC1,PVOC2,PVOC3,PVBLAN
INTEGER PYLOGI,PYINTE,PYREAL,PYCOMP,PYCHAR,PYDOUB,
1 PYIMPL,PYEXTE,PYDIME,PYCOMM,PYEQUI,PYDATA,
2 PYPARA
COMMON /LKYCOM/ PYLOGI,PYINTE,PYREAL,PYCOMP,PYCHAR,PYDOUB,
1 PYIMPL,PYEXTE,PYDIME,PYCOMM,PYEQUI,PYDATA,
2 PYPARA
COMMON /LTYCOM/ JTYP(256),JLNI(256)
INTEGER PKY(6)
EQUIVALENCE (PKY(1),PYLOGI)
10 CALL LNEXT (LRET)
GO TO (950,901,902, 12) , LRET
C12 DO 14 KTYP=1,6
12 DO 14 KTYP=1,6
PV1=PKY(KTYP)
C IF (LHSY.EQ.PV1.VSYM(/1)) THEN
IF(LHSY.EQ.OOA(OOA(OOT+PV1)+23))THEN
C IF (HSYM(1:LHSY).EQ.PV1.VSYM(1:LHSY)) GO TO 16
IF(HSYM(1:LHSY).EQ.OOH(OOA(OOT+PV1)*4+84+1:OOA(OOT+PV1)*4+84+LHSY)
*)GOTO16
ENDIF
14 CONTINUE
GO TO 904
16 IF (KTYP.EQ.6) THEN
CALL LXTYP3 (LRET,KTYP,KLNI)
IF (LRET.EQ.1) GO TO 950
C ELSEIF (NSPE.EQ.JASTE) THEN
ELSEIF(NSPE.EQ.11)THEN
CALL LNEXT (LRET)
GO TO (950,901, 18,903) , LRET
C18 IF (ITYP.NE.TYPINT) GO TO 902
18 IF(ITYP.NE.2)GOTO902
CALL LXTYP2 (LRET,KTYP,KLNI,ICST)
IF (LRET.EQ.1) GO TO 950
ELSE
KLNI=1
ENDIF
C IF (NSPE.NE.JPARO) GO TO 901
IF(NSPE.NE.1)GOTO901
30 CALL LNEXT (LRET)
GO TO (950,901,902, 32) , LRET
32 IF (LHSY.NE.1) GO TO 905
I1=ICHAR(HSY1(1))
I2=I1
C IF (NSPE.EQ.JMOIN) THEN
IF(NSPE.EQ.14)THEN
CALL LNEXT (LRET)
GO TO (950,901,902, 34) , LRET
34 IF (LHSY.NE.1) GO TO 905
I2=ICHAR(HSY1(1))
ENDIF
C DO 36 I=I1,I2
DO 36 I=I1,I2
IF (JTYP(I+1).GT.0) THEN
JTYP(I+1)=KTYP
JLNI(I+1)=KLNI
ENDIF
36 CONTINUE
C IF (NSPE.EQ.JVIRG) GO TO 30
IF(NSPE.EQ.3)GOTO30
C IF (NSPE.NE.JPARF) GO TO 901
IF(NSPE.NE.2)GOTO901
CALL LNEXT (LRET)
GO TO (950, 42,902,903) , LRET
C42 IF (NSPE.EQ.JVIRG) GO TO 10
42 IF(NSPE.EQ.3)GOTO10
C IF (NSPE.NE.JPVIR) GO TO 901
IF(NSPE.NE.5)GOTO901
LRET=2
RETURN
901 CALL LDIAG ('SEPARATEUR' )
GO TO 950
902 CALL LDIAG ('CONSTANTE' )
GO TO 950
903 CALL LDIAG ('SYMBOLE' )
GO TO 950
904 CALL LDIAG ('TYPE' )
GO TO 950
905 CALL LDIAG ('DOMAINE D'' UN TYPE' )
GO TO 950
950 LRET=1
RETURN
END
Unfortunatly, I cant use g77 because I meet the problem with #[Bug libf2c/16970]
long write times via NFS (with g77-3.2.2, g77-3.3.5 and g77-3.4.3).
Sincerely yours.
Jean-Pierre BENOIT
--
Summary: Internal error pb:get_indirect_ref_operands at tree-ssa-
operands.c:1449
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: jean-pierre dot benoit at irsn dot fr
CC: gcc-bugs at gcc dot gnu dot org
GCC build triplet: i686-pc-linux
GCC host triplet: i686-pc-linux
GCC target triplet: i686-pc-linux
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20052