This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/20986] New: erreur dans gfc_conv_string_tmp
- From: "antoine dot letellier at free dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 13 Apr 2005 07:41:18 -0000
- Subject: [Bug fortran/20986] New: erreur dans gfc_conv_string_tmp
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
it is fortran 77 code, if it is irrelevant please tell me. if you are interested
i have other bugs.
/home/antoine/bin/gfortran -v
Utilisation des specs internes.
Target: x86_64-unknown-linux-gnu
Configuré avec: ../gcc-4.0-20050402/configure --prefix=/home/antoine
--with-gmp=/home/antoine/ --without-libiberty
Modèle de thread: posix
version gcc 4.0.0 20050402 (prerelease)
the command
/home/antoine/bin/gfortran -B/home/antoine -c -O2 -ffixed-form
-fdefault-integer-8 -fdefault-real-8 zzfimp.f
the output :
zzfimp.f: In function 'zzfimp':
zzfimp.f:434: erreur interne du compilateur: dans gfc_conv_string_tmp, à
fortran/trans-expr.c:736
Veuillez soumettre un rapport complet d'anomalies,
avec le source pré-traité si nécessaire.
the source :
SUBROUTINE ZZFIMP(MTABX,MTAB1)
IMPLICIT INTEGER(I-N)
IMPLICIT REAL*8 (A-H,O-Z)
COMMON/COPTIO/IPLLB
COMMON/COPTIO/IERPER, IERMAX, IERR
REAL*4 REAERR
COMMON/COPTIO/INTERR(10),REAERR(10)
CHARACTER*40 MOTERR
CHARACTER*72 TITREE
CHARACTER*4 LOCERR
COMMON/COPTIC/MOTERR,TITREE,LOCERR
COMMON /COPTIO/IOTER, IOLEC, IOIMP, IOCAR, IOACQ
COMMON /COPTIO/IOPER, IOSGB, IOGRA, IOSAU, IORES
COMMON/COPTIO/IECHO, IIMPI, IOSPI
COMMON/COPTIO/IDIM, MCOORD
COMMON/COPTIO/IFOMOD
COMMON/COPTIO/NIFOUR
COMMON/COPTIO/IFOUR
COMMON/COPTIO/NSDPGE
REAL*4 DIOCAD,DIOCAE
COMMON/COPTIO/DIOCAD, DIOCAE
LOGICAL ZHORIZ , ZINIPS
COMMON/COPTIO/ZHORIZ , ZINIPS
COMMON/COPTIO/IONIVE
COMMON/COPTIO/NGMAXY
COMMON/COPTIO/IZROSF
COMMON/COPTIO/ISOTYP
COMMON/COPTIO/IEPTR
CHARACTER*72 DATVER
COMMON/COPTIC/DATVER
COMMON/COPTIO/IOSCR,LTEXLU
COMMON/COPTIC/TEXLU
CHARACTER*500 TEXLU
COMMON/COPTIO/NORINC,NORVAL,NORIND,NORVAD
COMMON/COPTIO/NUCROU
COMMON/COPTIC/LANGUE
CHARACTER*4 LANGUE
COMMON/COPTIO/IPSAUV
COMMON/COPTIC/NOMFIC,NOMRES
CHARACTER*72 NOMFIC,NOMRES
COMMON/COPTIO/IPREFI,IFICLE,DIMATT,DIMFIC
REAL*4 DIMATT,DIMFIC
COMMON/COPTIO/IREFOR,ISAFOR
REAL*4 DENSIT,DENSIU
COMMON /CGEOME/DENSIT, DENSIU
COMMON /CGEOME/NOMBR
CHARACTER*4 NOMS
COMMON /CGEOMC/NOMS(100)
COMMON /CGEOME/ILCOUR
COMMON/CGEOME/NBNNE(100),KDEGRE(100),KSURF(100)
COMMON/CGEOME/NBSOM(100),NSPOS(100)
COMMON/CGEOME/LPL(100),LPT(100)
COMMON/CGEOME/IBSOM(300)
COMMON/CGEOME/KSEGM(1500)
COMMON/CGEOME/KDFAC(3,20),KFAC(1000),LFAC(1000)
COMMON/CGEOME/LDEL(2,100),LTEL(2,100)
COMMON/CGEOME/KSIF(11)
COMMON /CGEOME/NBCOUL
CHARACTER*4 NCOUL
COMMON /CGEOMC/NCOUL(0:100)
COMMON /CGEOME/IDCOUL
COMMON/CGEOME/ITABM(0:10,0:10)
COMMON/CGEOME/IOMBRE
COMMON/CGEOME/IOEIL
C SEGMENT,MCHELM
C POINTEUR MCHEL1.MCHELM,MCHEL2.MCHELM,MCHEL3.MCHELM
C POINTEUR MCHEL4.MCHELM,MCHEL5.MCHELM,MCHEL6.MCHELM
C SEGMENT,MCHAML
C POINTEUR MCHAM1.MCHAML,MCHAM2.MCHAML,MCHAM3.MCHAML
C POINTEUR MCHAM4.MCHAML,MCHAM5.MCHAML,MCHAM6.MCHAML
C SEGMENT,MELVAL
C POINTEUR MELVA1.MELVAL,MELVA2.MELVAL,MELVA3.MELVAL
C POINTEUR MELVA4.MELVAL,MELVA5.MELVAL,MELVA6.MELVAL
C SEGMENT MCOORD
C SEGMENT/MLENTI/(LECT(JG)),MLENT1.MLENTI,MLENT2.MLENTI,
C 1 MLENT3.MLENTI
C SEGMENT MELEME
C POINTEUR IPT1.MELEME,IPT2.MELEME,IPT3.MELEME,IPT4.MELEME
C POINTEUR IPT5.MELEME,IPT6.MELEME,IPT7.MELEME,IPT8.MELEME
C POINTEUR IPT9.MELEME
C POINTEUR MELEM1.MELEME,SPGID.MELEME,SPGZ.MELEME
C POINTEUR MELEMP.MELEME
C SEGMENT MCHPOI
C POINTEUR MCHPO1.MCHPOI,MCHPO2.MCHPOI,MCHPO3.MCHPOI,MCHPO4.MCHPOI
C SEGMENT MSOUPO
C POINTEUR MSOUP1.MSOUPO,MSOUP2.MSOUPO,MSOUP3.MSOUPO,
C # MSOUP4.MSOUPO,MSOUP5.MSOUPO
C SEGMENT MPOVAL
C POINTEUR MPOVA1.MPOVAL,MPOVA2.MPOVAL,MPOVA3.MPOVAL,
C # MPOVA4.MPOVAL,MPOVA5.MPOVAL,MPOVA6.MPOVAL
C POINTEUR IZG1.MCHPOI, IZGG1.MPOVAL
C POINTEUR IZTU1.MPOVAL
C POINTEUR MZFLU.MPOVAL
C POINTEUR IZVOL.MPOVAL
C SEGMENT IZFFM
C SEGMENT IZHR
C POINTEUR IZF1.IZFFM
C SEGMENT MLMOTS
C POINTEUR MLMOT1.MLMOTS,MLMOT2.MLMOTS,MLMOT3.MLMOTS
C POINTEUR MLMOT4.MLMOTS,MLMOT5.MLMOTS,MLMOT6.MLMOTS
C POINTEUR LINCO.MLMOTS
COMMON/OOOCOM/OOA(1),OOT,OOV(8),MOT_01,IPC_02,NOC_03,LIS_04,ICH_05
*,IEL_06,LEC_07,NUM_08,VEL_09,VPO_10,VPO_11,ITY_12,KZH_13,KTP_14,XY
*Z_15,XCO_16,FN_17,GR_18,PG_19,HR_20,PGS_21,RPG_22,NUM_23,FN_24
INTEGEROOA,OOT,OOV,OOO,OO1,OO2,OO3,OO4,MCHELM,OO5
INTEGEROO6,OO7,OO8,OO9,OO10,MCHEL1,MCHEL2,MCHEL3,MCHEL4,MCHEL5
INTEGERMCHEL6,MCHAML,MCHAM1,MCHAM2,MCHAM3,MCHAM4,MCHAM5,MCHAM6,MEL
*VAL,MELVA1
INTEGERMELVA2,MELVA3,MELVA4,MELVA5,MELVA6,MCOORD,MLENTI,MLENT1,MLE
*NT2,MLENT3
INTEGERMELEME,IPT1,IPT2,IPT3,IPT4,IPT5,IPT6,IPT7,IPT8,IPT9
INTEGERMELEM1,SPGID,SPGZ,MELEMP,MCHPOI,MCHPO1,MCHPO2,MCHPO3,MCHPO4
*,MSOUPO
INTEGERMSOUP1,MSOUP2,MSOUP3,MSOUP4,MSOUP5,MPOVAL,MPOVA1,MPOVA2,MPO
*VA3,MPOVA4
INTEGERMPOVA5,MPOVA6,IZG1,IZGG1,IZTU1,MZFLU,IZVOL,IZFFM,IZHR,IZF1
INTEGERMLMOTS,MLMOT1,MLMOT2,MLMOT3,MLMOT4,MLMOT5,MLMOT6,LINCO
INTEGEROOI(1)
REALOOR(1)
CHARACTER*8OOH(1)
EQUIVALENCE(OOV(1),OOI(1),OOR(1),OOH(1))
INTEGERIPC_02(2),LIS_04(2),ICH_05(2),IEL_06(2),LEC_07(2),NUM_08(2)
*,ITY_12(2),KZH_13(2),KTP_14(2),NUM_23(2)
REALVEL_09(2),VPO_10(2),VPO_11(2),XYZ_15(2),XCO_16(2),FN_17(2),GR_
*18(2),PG_19(2),HR_20(2),PGS_21(2),RPG_22(2),FN_24(2)
CHARACTER*8MOT_01(2),NOC_03(2)
CHARACTER*8 NOMZ,NOMI,NOMA,TYPE,NOM0,TYPC,MTERR
LOGICAL LOGI
PARAMETER (NTB=1)
CHARACTER*8 LTAB(NTB)
DIMENSION KTAB(NTB),IXV(4)
SAVE IPAS
DATA LTAB/'KIZX '/,IPAS/0/
CALL LEKTAB(MTAB1,'INCO',KINC)
IF(KINC.EQ.0)THEN
MOTERR( 1: 8) = ' INCO '
MOTERR( 9:16) = ' INCO '
MOTERR(17:24) = ' EQEX '
CALL ERREUR(786)
RETURN
ENDIF
IAXI=0
IF(IFOMOD.EQ.0)IAXI=2
CALL LEKTAB(MTABX,'KOPT',KOPTI)
IF (KOPTI.EQ.0) THEN
MOTERR( 1: 8) = ' KOPT '
MOTERR( 9:16) = ' KOPT '
MOTERR(17:24) = ' KIZX '
CALL ERREUR(786)
RETURN
ENDIF
CALL ACME(KOPTI,'MTRMASS ',MMPG)
IPG=0
IF(MMPG.EQ.3)IPG=1
CALL ACME(KOPTI,'IDCEN',IDCEN)
KDIM=1
IF(IDCEN.EQ.2)KDIM=IDIM
CALL ACME(KOPTI,'IKOMP',IKOMP)
CALL ACME(KOPTI,'KIMPL',KIMPL)
CALL ACME(KOPTI,'KFORM',KFORM)
CALL ACME(KOPTI,'KPOIND',KPOIND)
IF(KFORM.GE.2)THEN
MOTERR( 1: 8) = 'EF/EFM1 '
CALL ERREUR(803)
RETURN
ENDIF
CALL ACME(KOPTI,'KMACO',KMACO)
CALL ACMF(KOPTI,'AIMPL',AIMPL)
IF (IERR.NE.0) RETURN
CALL ACMM(MTABX,'NOMZONE',NOMZ)
CALL LEKTAB(MTABX,'DOMZ',MTABZ)
IF(MTABZ.EQ.0)THEN
MOTERR( 1: 8) = ' DOMZ '
MOTERR( 9:16) = ' DOMZ '
MOTERR(17:24) = ' KIZX '
CALL ERREUR(786)
RETURN
ENDIF
CALL LEKTAB(MTABZ,'MAILLAGE',MELEMZ)
CALL LEKTAB(MTABZ,'SOMMET',MELEMS)
CALL LEKTAB(MTABZ,'CENTRE',MELEMC)
CALL LEKTAB(MTABZ,'XXPSOML',MCHELM)
CALL LEKTAB(MTABZ,'XXVOLUM',MCHVOL)
CALL LEKTAB(MTABZ,'MACRO',MACRO)
CALL LEKTAB(MTABZ,'QUADRATI',MQUAD)
IF (IERR.NE.0) RETURN
CALL LICHT(MCHVOL,IZVOL,TYPC,IGEOM)
C SEGACT MCHELM
OO1=MCHELM
CALLOOOWAC(OO4,0,'ZZFIMP 138 MCHELM ',OO1,1)
IF(KFORM.EQ.0)THEN
IF(KPOIND.EQ.99)THEN
KPOIND=0
SPGZ =MELEMS
MELEME=MELEMZ
ELSEIF(KPOIND.EQ.2)THEN
SPGZ =MELEMC
MELEME=MELEMC
MELEMP=MELEMC
ELSEIF(KPOIND.EQ.0)THEN
SPGZ =MELEMS
MELEME=MELEMZ
ELSEIF(KPOIND.NE.2.AND.KPOIND.NE.0)THEN
MOTERR( 1: 8) = ' EF '
CALL ERREUR(803)
RETURN
ENDIF
ELSEIF(KFORM.EQ.1)THEN
IF(KPOIND.EQ.99)THEN
KPOIND=0
SPGZ =MELEMS
MELEME=MELEMZ
ELSEIF(KPOIND.EQ.0)THEN
SPGZ =MELEMS
MELEME=MELEMZ
ELSEIF(KPOIND.EQ.2)THEN
SPGZ =MELEMC
MELEME=MELEMZ
MELEMP=MELEMC
ELSEIF(KPOIND.EQ.3)THEN
MTERR='EF CTRP0'
IF(MACRO.EQ.0.AND.MQUAD.EQ.0)GO TO 90
CALL LEKTAB(MTABZ,'CENTREP0',MELEMC)
SPGZ =MELEMC
MELEME=MELEMZ
IF(MACRO.NE.0)CALL LEKTAB(MTABZ,'MACRO1',MELEME)
MELEMP=MELEMC
ELSEIF(KPOIND.EQ.4)THEN
MTERR='EF CTRP1'
IF(MACRO.EQ.0.AND.MQUAD.EQ.0)GO TO 90
CALL LEKTAB(MTABZ,'CENTREP1',MELEMC)
SPGZ =MELEMC
MELEME=MELEMZ
IF(MACRO.NE.0)CALL LEKTAB(MTABZ,'MACRO1',MELEME)
CALL LEKTAB(MTABZ,'ELTP1NC ',MELEMP)
ELSEIF(KPOIND.NE.2.AND.KPOIND.NE.0.AND.KPOIND.NE.3
& .AND.KPOIND.NE.4)THEN
MOTERR( 1: 8) = ' EF '
CALL ERREUR(803)
RETURN
ENDIF
ELSEIF(KFORM.EQ.2)THEN
IF(KPOIND.EQ.99)THEN
KPOIND=2
SPGZ =MELEMC
MELEME=MELEMC
MELEMP=MELEMC
ELSEIF(KPOIND.EQ.2)THEN
SPGZ =MELEMC
MELEME=MELEMC
MELEMP=MELEMC
ELSEIF(KPOIND.NE.2)THEN
MOTERR( 1: 8) = ' VF '
CALL ERREUR(803)
RETURN
ENDIF
ELSEIF(KFORM.EQ.3)THEN
MTERR='EFMC'
GO TO 90
IF(KPOIND.EQ.99.OR.KPOIND.EQ.2)THEN
KPOIND=2
SPGZ =MELEMC
MELEME=MELEMC
ELSEIF(KPOIND.EQ.3.AND.(MACRO.NE.0.OR.MQUAD.NE.0))THEN
CALL LEKTAB(MTABZ,'CENTREP0',MELEMC)
SPGZ =MELEMC
MELEME=MELEMC
ELSEIF(KPOIND.EQ.4.AND.(MACRO.NE.0.OR.MQUAD.NE.0))THEN
CALL LEKTAB(MTABZ,'CENTREP1',MELEMC)
CALL LEKTAB(MTABZ,'ELTP1NC',MELEMQ)
SPGZ =MELEMC
MELEME=MELEMQ
IF(MACRO.NE.0)MELEMO=MACRO1
IF(MQUAD.NE.0)MELEMO=MELEMZ
ELSE
MOTERR( 1: 8) = ' EFMC '
CALL ERREUR(803)
RETURN
ENDIF
ENDIF
TYPE='LISTMOTS'
CALL ACMO(MTABX,'LISTINCO',TYPE,LINCO)
IF (IERR.NE.0) RETURN
C SEGACT LINCO
OO1=LINCO
CALLOOOWAC(OO4,0,'ZZFIMP 237 LINCO ',OO1,1)
C NBINC=LINCO.MOTS(/2)
NBINC=OOA((OOA(OOT+LINCO)+OOT)+4)
IF(NBINC.NE.1)THEN
MOTERR( 1:8) = 'LISTINCO'
INTERR(1) = 1
MOTERR(9:16) = ' MOTS '
CALL ERREUR(799)
RETURN
ENDIF
C NOMI=LINCO.MOTS(1)
NOMI=MOT_01(-008+(OOA(OOT+LINCO)+OOT)+1)(OOV(2)+16+1:OOV(2)+16+OOA
*((OOA(OOT+LINCO)+OOT)+3))
IF(KIMPL.EQ.0)THEN
CALL LEKTAB(MTAB1,'KIZG',KIZG)
IF(KIZG.EQ.0)THEN
CALL CRTABL(KIZG)
CALL ECMM(KIZG,'SOUSTYPE','KIZG')
CALL ECMO(MTAB1,'KIZG','TABLE ',KIZG)
ENDIF
ENDIF
C NOMI=LINCO.MOTS(1)
NOMI=MOT_01(-008+(OOA(OOT+LINCO)+OOT)+1)(OOV(2)+16+1:OOV(2)+16+OOA
*((OOA(OOT+LINCO)+OOT)+3))
TYPE=' '
CALL ACMO(KINC,NOMI,TYPE,MCHPOI)
IF(TYPE.NE.'CHPOINT ')THEN
MOTERR( 1: 8) = 'INC '//NOMI
MOTERR( 9:16) = 'CHPOINT '
CALL ERREUR(800)
RETURN
ELSE
CALL LICHT(MCHPOI,IZTU1,TYPC,SPGID)
ENDIF
CALL KRIPAD(SPGID,MLENTI)
IF(IPAS.EQ.0)THEN
CALL VERPAD(MLENTI,SPGZ,IRET)
IF(IRET.NE.0)THEN
MOTERR(1: 8) = 'INC '//NOMI
MOTERR(9:16) = 'CHPOINT '
CALL ERREUR(788)
IPAS=0
RETURN
ENDIF
ENDIF
CALL ACME(MTABX,'IARG',IARG)
IF(IARG.NE.1)THEN
MOTERR(1:8) = 'IARG '
CALL ERREUR(804)
RETURN
ENDIF
IRET=3
IXV(1)=MELEMC
IXV(2)=1
IXV(3)=0
CALL LEKCOF('Oprateur FIMP :',
& MTABX,KINC,1,IXV,MFLU,MZFLU,NPT1,NC1,IK1,IRET)
IF(IRET.EQ.0)RETURN
IF(KIMPL.EQ.0)THEN
TYPE=' '
CALL ACMO(KIZG,NOMI,TYPE,IZG1)
IF(TYPE.NE.'CHPOINT ')THEN
C NC=IZTU1.VPOCHA(/2)
NC=OOA((OOA(OOT+IZTU1)+OOT)+4)
TYPE='SOMMET'
CALL CRCHPT(TYPE,SPGID,NC,IZG1)
CALL ECMO(KIZG,NOMI,'CHPOINT ',IZG1)
ENDIF
ELSE
C NC=IZTU1.VPOCHA(/2)
NC=OOA((OOA(OOT+IZTU1)+OOT)+4)
TYPE='SOMMET'
CALL CRCHPT(TYPE,SPGID,NC,IZG1)
C SEGACT IZG1
OO1=IZG1
CALLOOOWAC(OO4,0,'ZZFIMP 304 IZG1 ',OO1,1)
C MSOUPO=IZG1.IPCHP(1)
MSOUPO=IPC_02(-010+(OOA(OOT+IZG1)+OOT)+OOA((OOA(OOT+IZG1)+OOT)+9)+
*1)
C SEGACT MSOUPO*MOD
OO1=MSOUPO
CALLOOOWAC(OO4,0,'ZZFIMP 307 MSOUPO ',OO1,0)
C NOCOMP(1)=NOMI(1:4)
NOC_03(-012+(OOA(OOT+MSOUPO+2)+OOT)+1)(OOV(2)+72+1:OOV(2)+72+OOA((
*OOA(OOT+MSOUPO+2)+OOT)+5))=NOMI(1:4)
ENDIF
CALL LICHT(IZG1,IZGG1,TYPC,IGEOM)
IF(IGEOM.NE.SPGID)THEN
MOTERR(1: 8) = 'INC '//NOMI
MOTERR(9:16) = 'CHPOINT '
CALL ERREUR(788)
RETURN
ENDIF
C SEGACT MELEME
OO1=MELEME
CALLOOOWAC(OO4,0,'ZZFIMP 318 MELEME ',OO1,1)
C NBSOUS=LISOUS(/1)
NBSOUS=OOA((OOA(OOT+MELEME)+OOT)+7)
IF(NBSOUS.EQ.0)NBSOUS=1
NUTOEL=0
C NPTD=IZTU1.VPOCHA(/1)
NPTD=OOA((OOA(OOT+IZTU1)+OOT)+3)
IES=IDIM
C DO 1 L=1,NBSOUS
DO1L=1,NBSOUS
IPT1=MELEME
C IF(NBSOUS.NE.1)IPT1=LISOUS(L)
IF(NBSOUS.NE.1)IPT1=LIS_04(-014+(OOA(OOT+MELEME)+OOT)+OOA((OOA(OOT
*+MELEME)+OOT)+6)+L)
C SEGACT IPT1
OO1=IPT1
CALLOOOWAC(OO4,0,'ZZFIMP 329 IPT1 ',OO1,1)
C MCHAML=ICHAML(L)
MCHAML=ICH_05(-016+(OOA(OOT+MCHELM)+OOT)+OOA((OOA(OOT+MCHELM)+OOT)
*+13)+L)
C SEGACT MCHAML
OO1=MCHAML
CALLOOOWAC(OO4,0,'ZZFIMP 332 MCHAML ',OO1,1)
C MELVAL=IELVAL(1)
MELVAL=IEL_06(-018+(OOA(OOT+MCHAML)+OOT)+OOA((OOA(OOT+MCHAML)+OOT)
*+8)+1)
C SEGACT MELVAL
OO1=MELVAL
CALLOOOWAC(OO4,0,'ZZFIMP 335 MELVAL ',OO1,1)
C NP =IPT1.NUM(/1)
NP=OOA((OOA(OOT+IPT1)+OOT)+4)
C NBEL=IPT1.NUM(/2)
NBEL=OOA((OOA(OOT+IPT1)+OOT)+5)
IF(KPOIND.EQ.0)THEN
C CALL ZXFIMP(NBEL,NUTOEL,NP,LECT,IPT1.NUM,
C & VELCHE,IZGG1.VPOCHA,MZFLU.VPOCHA,IK1)
OO5=OOA(OOT+MLENTI)
OO6=OOA(OOT+IPT1)
OO7=OOA(OOT+MELVAL)
OO8=OOA(OOT+IZGG1)
OO9=OOA(OOT+MZFLU)
OOV(1)=OOV(1)+1
CALLZXFIMP(NBEL,NUTOEL,NP,LEC_07(-020+(OO5+OOT)+1+1),NUM_08(-022+(
*OO6+OOT)+9+1),VEL_09(-024+(OO7+OOT)+5+1),VPO_10(-026+(OO8+OOT)+2+1
*),VPO_11(-028+(OO9+OOT)+2+1),IK1)
OOV(1)=OOV(1)-1
ELSE
IPT2=MELEMP
C IF(NBSOUS.NE.1)IPT2=LISOUS(L)
IF(NBSOUS.NE.1)IPT2=LIS_04(-014+(OOA(OOT+MELEME)+OOT)+OOA((OOA(OOT
*+MELEME)+OOT)+6)+L)
C SEGACT IPT2
OO1=IPT2
CALLOOOWAC(OO4,0,'ZZFIMP 351 IPT2 ',OO1,1)
IF(MQUAD.NE.0)THEN
C IF(KPOIND.EQ.2)NOM0=NOMS(IPT1.ITYPEL)//'PRP0'
IF(KPOIND.EQ.2)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'PRP
*0'
C IF(KPOIND.EQ.3)NOM0=NOMS(IPT1.ITYPEL)//'PRP0'
IF(KPOIND.EQ.3)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'PRP
*0'
C IF(KPOIND.EQ.4)NOM0=NOMS(IPT1.ITYPEL)//'PRP1'
IF(KPOIND.EQ.4)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'PRP
*1'
ELSEIF(MACRO.NE.0)THEN
C IF(KPOIND.EQ.2)NOM0=NOMS(IPT1.ITYPEL)//' '
IF(KPOIND.EQ.2)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'
* '
C IF(KPOIND.EQ.3)NOM0=NOMS(IPT1.ITYPEL)//'MCP0'
IF(KPOIND.EQ.3)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'MCP
*0'
C IF(KPOIND.EQ.4)NOM0=NOMS(IPT1.ITYPEL)//'MCP1'
IF(KPOIND.EQ.4)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'MCP
*1'
ELSE
C IF(KPOIND.EQ.2)NOM0=NOMS(IPT1.ITYPEL)//' '
IF(KPOIND.EQ.2)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'
* '
ENDIF
CALL KALPBG(NOM0,'FONFORM ',IZFFM)
C SEGACT IZFFM*MOD
OO1=IZFFM
CALLOOOWAC(OO4,0,'ZZFIMP 365 IZFFM ',OO1,0)
C IZHR=KZHR(1)
IZHR=KZH_13(-032+(OOA(OOT+IZFFM)+OOT)+OOA((OOA(OOT+IZFFM)+OOT)+15)
*+1)
C SEGACT IZHR*MOD
OO1=IZHR
CALLOOOWAC(OO4,0,'ZZFIMP 368 IZHR ',OO1,0)
C NES=GR(/1)
NES=OOA((OOA(OOT+IZFFM)+OOT)+8)
C NPG=GR(/3)
NPG=OOA((OOA(OOT+IZFFM)+OOT)+10)
C IZF1=KTP(1)
IZF1=KTP_14(-034+(OOA(OOT+IZFFM)+OOT)+OOA((OOA(OOT+IZFFM)+OOT)+13)
*+1)
C SEGACT IZF1*MOD
OO1=IZF1
CALLOOOWAC(OO4,0,'ZZFIMP 373 IZF1 ',OO1,0)
C MP1=IZF1.FN(/1)
MP1=OOA((OOA(OOT+IZF1)+OOT)+5)
C NP = IPT1.NUM(/1)
NP=OOA((OOA(OOT+IPT1)+OOT)+4)
NK=NUTOEL
C DO 21 K=1,NBEL
DO21K=1,NBEL
NK=NK+1
JC=(1-IK1)*(NK-1)+1
C DO 109 I=1,NP
DO109I=1,NP
C J=IPT1.NUM(I,K)
J=NUM_08(-022+(OOA(OOT+IPT1)+OOT)+9+OOA((OOA(OOT+IPT1)+OOT)+4)*(K-
*1)+I)
C DO 109 N=1,IDIM
DO109N=1,IDIM
C XYZ(N,I)=XCOOR((J-1)*(IDIM+1)+N)
XYZ_15(-036+(OOA(OOT+IZHR+2)+OOT)+OOA((OOA(OOT+IZHR+2)+OOT)+10)+OO
*A((OOA(OOT+IZHR+2)+OOT)+11)*(I-1)+N)=XCO_16(-038+(OOA(OOT+MCOORD)+
*OOT)+1+(J-1)*(IDIM+1)+N)
109 CONTINUE
C CALL CALJBC(FN,GR,PG,XYZ,HR,PGSQ,RPG,NES,IDIM,NP,NPG,IAXI,AIRE)
OO5=OOA(OOT+IZFFM)
OO6=OOA(OOT+IZHR)
OOV(1)=OOV(1)+1
CALLCALJBC(FN_17(-040+(OO5+OOT)+OOA((OO5+OOT)+4)+1),GR_18(-042+(OO
*5+OOT)+OOA((OO5+OOT)+7)+1),PG_19(-044+(OO5+OOT)+OOA((OO5+OOT)+11)+
*1),XYZ_15(-036+(OO6+OOT)+OOA((OO6+OOT)+10)+1),HR_20(-046+(OO6+OOT)
*+14+1),PGS_21(-048+(OO6+OOT)+OOA((OO6+OOT)+6)+1),RPG_22(-050+(OO6+
*OOT)+OOA((OO6+OOT)+8)+1),NES,IDIM,NP,NPG,IAXI,AIRE)
OOV(1)=OOV(1)-1
C DO 39 M=1,MP1
DO39M=1,MP1
C M1=LECT(IPT2.NUM(M,K))
M1=LEC_07(-020+(OOA(OOT+MLENTI)+OOT)+1+NUM_23(-052+(OOA(OOT+IPT2)+
*OOT)+9+OOA((OOA(OOT+IPT2)+OOT)+4)*(K-1)+M))
U=0.D0
C DO 33 LL=1,NPG
DO33LL=1,NPG
C U=U+IZF1.FN(M,LL)*MZFLU.VPOCHA(JC,1)*PGSQ(LL)
U=U+FN_24(-054+(OOA(OOT+IZF1)+OOT)+OOA((OOA(OOT+IZF1)+OOT)+4)+OOA(
*(OOA(OOT+IZF1)+OOT)+5)*(LL-1)+M)*VPO_11(-028+(OOA(OOT+MZFLU)+OOT)+
*2+JC)*PGS_21(-048+(OOA(OOT+IZHR)+OOT)+OOA((OOA(OOT+IZHR)+OOT)+6)+L
*L)
33 CONTINUE
C IZGG1.VPOCHA(M1,1)=IZGG1.VPOCHA(M1,1)-U
VPO_10(-026+(OOA(OOT+IZGG1+2)+OOT)+2+M1)=VPO_10(-026+(OOA(OOT+IZGG
*1)+OOT)+2+M1)-U
39 CONTINUE
21 CONTINUE
ENDIF
C SEGDES IPT1,MCHAML,MELVAL
OO1=IPT1
CALLOOOWDE(OO4,0,'ZZFIMP 401 IPT1 ',OO1,1)
OO1=MCHAML
CALLOOOWDE(OO4,0,'ZZFIMP 403 MCHAML ',OO1,1)
OO1=MELVAL
CALLOOOWDE(OO4,0,'ZZFIMP 405 MELVAL ',OO1,1)
NUTOEL=NUTOEL+NBEL
1 CONTINUE
C SEGDES MZFLU
OO1=MZFLU
CALLOOOWDE(OO4,0,'ZZFIMP 409 MZFLU ',OO1,1)
IF(KIMPL.NE.0)THEN
TYPE=' '
CALL ACMO(MTAB1,'SMBR',TYPE,MCHPO2)
IF(TYPE.NE.'CHPOINT')THEN
CALL ECMO(MTAB1,'SMBR','CHPOINT',IZG1)
ELSE
CALL ECROBJ('CHPOINT',MCHPO2)
CALL ECROBJ('CHPOINT',IZG1)
CALL PRFUSE
CALL LIROBJ('CHPOINT',MCHPOI,1,IRET)
CALL ECMO(MTAB1,'SMBR','CHPOINT',MCHPOI)
ENDIF
ENDIF
C SEGDES MELEME
OO1=MELEME
CALLOOOWDE(OO4,0,'ZZFIMP 424 MELEME ',OO1,1)
C SEGDES IZTU1
OO1=IZTU1
CALLOOOWDE(OO4,0,'ZZFIMP 426 IZTU1 ',OO1,1)
C SEGDES IZG1,IZGG1
OO1=IZG1
CALLOOOWDE(OO4,0,'ZZFIMP 428 IZG1 ',OO1,1)
OO1=IZGG1
CALLOOOWDE(OO4,0,'ZZFIMP 430 IZGG1 ',OO1,1)
C SEGDES LINCO
OO1=LINCO
CALLOOOWDE(OO4,0,'ZZFIMP 432 LINCO ',OO1,1)
C SEGSUP MLENTI
OO1=MLENTI
CALLOOOWSU(OO4,0,'ZZFIMP 434 MLENTI ',OO1,0)
MLENTI=0
IPAS=1
RETURN
90 CONTINUE
MOTERR( 1: 8) = MTERR
CALL ERREUR(803)
RETURN
1002 FORMAT(10(1X,1PE11.4))
END
--
Summary: erreur dans gfc_conv_string_tmp
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: antoine dot letellier at free dot fr
CC: gcc-bugs at gcc dot gnu dot org
GCC build triplet: x86_64 unknown gnu-linux
GCC host triplet: x86_64 unknown gnu-linux
GCC target triplet: x86_64 unknown gnu-linux
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20986