[Bug fortran/24430] New: internal compiler error: in convert_move, at expr.c:362

["dir at lanl dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

I get internal compiler error trying to compile this routine on windows (no
problem on the Macintosh) -

$ gfortran -c stress.f
stress.f: In function 'stress1':
stress.f:44: internal compiler error: in convert_move, at expr.c:362
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

rantad@XP-RANTAD /d/Docume~1/rantad/mydocu~1/Visual Studio Projects/tests
$ gfortran --v
Using built-in specs.
Target: i686-pc-mingw32
Configured with: ../gcc/configure --prefix=/mingw --enable-languages=c,fortran
--with-gmp=/home/FX/local --with-mpfr=/home/FX/local --disable-libssp
--disable-libmudflap --disable-nls : (reconfigured) ../gcc/configure
--prefix=/mingw --enable-languages=c,fortran --with-gmp=/home/FX/local
--with-mpfr=/home/FX/local --disable-libssp --disable-libmudflap --disable-nls
--with-ld=/mingw/bin/ld --with-as=/mingw/bin/as
Thread model: win32
gcc version 4.1.0 20051015 (experimental)

rantad@XP-RANTAD /d/Docume~1/rantad/mydocu~1/Visual Studio Projects/tests
$ cat stress.f
       SUBROUTINE STRESS1(N,SIG,ORD,KODE,MTYPE)
      IMPLICIT REAL*8 (A-H,O-Z)
      COMPLEX UD,UDX,UR,UK,WK,TK,UI,UJ,WI,WJ,TI,TJ,TRR,TZZ,TRZ,TZT,TRT,
     *ERR,EZZ,ERZ,ERT,EZT,       ER,EZ,ET,SIG,FORCD
      COMMON/STITER/
     1 UD(690),UD1(690),UD2(690),FORCD(690),R(230),Z(230),
     2 RO(10),E(12,10),NODDIS(50),NODFRC(20),
     3 NUMNP,NUMEL,NDGREE,MUD,NUMDIS,NUMFRC,IX(5,355)
      COMMON/TEMPFD/
     1 TO,T(230)
      COMMON/FOURER/
     1 NUMFOU,NFOUR,NF,NF2
      DIMENSION
     1 EE(12),SIG(6),UR(1),ORD(2)
      EQUIVALENCE
     1 (UD(1),UR(1))
      REAL*8
     1 NF, NF2
      DIMENSION UDX(3,230)
      EQUIVALENCE (UDX(1,1),UD(1))
C
C     SET U-THETA= -U-R FOR ALL NODES ON Z-AXIS IF NFOUR=2
C
      IF(NFOUR.NE.2) GO TO 55
   50 DO 54 I=1,4
      J=IX(I,N)
      IF ( ABS(R(J)).LT.1.E-4) UDX(3,J)=-UDX(1,J)
   54 CONTINUE
   55 MPRINT=0
C
C*****    CALCULATION OF CENTER NODE VARIABLES
C
      I=IX(1,N)
      J=IX(2,N)
      K=IX(3,N)
      L=IX(4,N)
      II=3*I
      JJ=3*J
      KK=3*K
      LL=3*L
      IF(K.EQ.L) GO TO 60
      NM=4
      C=0.25
      UK=C*(UR(II-2)+UR(JJ-2)+UR(KK-2)+UR(LL-2))
      WK=C*(UR(II-1)+UR(JJ-1)+UR(KK-1)+UR(LL-1))
      TK=C*(UR(II)+UR(JJ)+UR(KK)+UR(LL))
      TEMP=C*(T(I)+T(J)+T(K)+T(L))
      RK=C*(R(I)+R(J)+R(K)+R(L))
      ZK=C*(Z(I)+Z(J)+Z(K)+Z(L))
      GO TO 70
   60 C=1./3.
      NM=1
      UK=UR(KK-2)
      WK=UR(KK-1)
      TK=UR(KK)
      TEMP=C*(T(I)+T(J)+T(K))
      RK=R(K)
      ZK=Z(K)
      C=1.
   70 CONTINUE
C
C*****    CALCULATION OF ELEMENT PROPERTIES
C
      DO 90 M=1,9
   90 EE(M)=E(M,MTYPE)
      TEMP=TEMP-TO
      DO 100 M=10,12
  100 EE(M)=E(M,MTYPE)*TEMP
C
C*****    CALCULATION OF STRESSES AT CENTER NP
C
      ERR=(0.0,0.0)
      EZZ=(0.0,0.0)
      ETT=(0.0,0.0)
      ERZ=(0.0,0.0)
      ERT=(0.0,0.0)
      EZT=(0.0,0.0)
C
C*****    COMPUTE STRESS AT NODE K OF TRIANGLE
C
      DO 200 M=1,NM
      MM=M+1
      IF(M.EQ.4) MM=1
      I=IX(M,N)
      J=IX(MM,N)
      II=3*I
      JJ=3*J
      UI=UR(II-2)
      UJ=UR(JJ-2)
      WI=UR(II-1)
      WJ=UR(JJ-1)
      TI=UR(II)
      TJ=UR(JJ)
      RI=R(I)
      RJ=R(J)
      ZI=Z(I)
      ZJ=Z(J)
      AJ=RJ-RI
      AK=RK-RI
      BJ=ZJ-ZI
      BK=ZK-ZI
      X=AJ-AK
      Y=BJ-BK
      D=AJ*BK-AK*BJ
      TRR=Y*UI+BK*UJ-BJ*UK
      TZZ=-X*WI-AK*WJ+AJ*WK
      TRZ=-X*UI+Y*WI-AK*UJ+BK*WJ+AJ*UK-BJ*WK
      TZT=-X*TI-AK*TJ+AJ*TK
      IF(ABS(RK).LT.1.E-4)TRT=+ZJ*TI-ZI*TJ
C     BYPASS OIRGIN SINGULARITY
      IF(ABS(RK).LT.1.E-4) GO TO 355
      TRT=-((RJ*ZK-RK*ZJ)*TI+(RK*ZI-RI*ZK)*TJ+(RI*ZJ-RJ*ZI)*TK+ZK*TZT)/
     1 RK
  355 CONTINUE
      ERR=TRR/D+ERR
      EZZ=TZZ/D+EZZ
      ERZ=TRZ/D+ERZ
      ERT=TRT/D+ERT
      EZT=TZT/D+EZT
  200 CONTINUE
C
C        FOR COMPUTATION OF ETT IN TRIANGLES, LET UK,TK,RK
C        TAKE ON AVERAGE VALUES
      IF (NM.NE.1) GO TO 205
      CC=1./3.
      RK=CC*(RI+RJ+RK)
      TK=CC*(TI+TJ+TK)
      UK=CC*(UI+UJ+UK)
  205 CONTINUE
      ERR=C*ERR
      EZZ=C*EZZ
      ETT=(UK+NF*TK)/RK
      ERZ=C*ERZ
      ERT=C*ERT-NF*UK/RK
      EZT=C*EZT-NF*WK/RK
C
C*****    CALCULATE STRESSES
C
      ER=ERR-EE(10)
      EZ=EZZ-EE(11)
      ET=ETT-EE(12)
C
C    KODE .EQ. 0 OR 2 CALCULATE STRESSES
C      KODE.NE.0 OR 2 CALCULATE STRAINS
C
      IF(KODE.EQ.0.OR.KODE.EQ.2) GO TO 300
        DO 310 I=1,9
         EE(I)=1.
  310 IF(I.EQ.2.OR.I.EQ.3.OR.I.EQ.5) EE(I)=0.
  300  CONTINUE
      SIG(1)=EE(1)*ER+EE(2)*EZ+EE(3)*ET
      SIG(2)=EE(2)*ER+EE(4)*EZ+EE(5)*ET
      SIG(3)=EE(3)*ER+EE(5)*EZ+EE(6)*ET
      SIG(4)=EE(7)*ERZ
      SIG(5)=EE(8)*ERT
      SIG(6)=EE(9)*EZT
      ORD(1)=RK
      ORD(2)=ZK
      RETURN
      END


-- 
           Summary: internal compiler error: in convert_move, at expr.c:362
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
 GCC build triplet: i686-pc-mingw32
  GCC host triplet: i686-pc-mingw32
GCC target triplet: i686-pc-mingw32


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