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. [EMAIL PROTECTED] /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) [EMAIL PROTECTED] /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
