From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15969 invoked by alias); 13 Sep 2006 20:10:38 -0000 Received: (qmail 15947 invoked by uid 48); 13 Sep 2006 20:10:29 -0000 Date: Wed, 13 Sep 2006 20:10:00 -0000 Subject: [Bug fortran/29067] New: Internal Error: gfc_resolve_expr(): Bad expression type X-Bugzilla-Reason: CC Message-ID: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "mathieu dot courtois at free dot fr" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2006-09/txt/msg01264.txt.bz2 List-Id: gfortran fails on the attached subroutine. > gfortran -v -save-temps -c ircmva.f Using built-in specs. Target: i486-linux-gnu Configured with: ../src/configure -v --enable-languages=c,c++,fortran,objc,obj-c++,treelang --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --program-suffix=-4.1 --enable-__cxa_atexit --enable-clocale=gnu --enable-libstdcxx-debug --enable-mpfr --with-tune=i686 --enable-checking=release i486-linux-gnu Thread model: posix gcc version 4.1.2 20060901 (prerelease) (Debian 4.1.1-13) /usr/lib/gcc/i486-linux-gnu/4.1.2/f951 ircmva.f -ffixed-form -quiet -dumpbase ircmva.f -mtune=i686 -auxbase ircmva -version -o ircmva.s GNU F95 version 4.1.2 20060901 (prerelease) (Debian 4.1.1-13) (i486-linux-gnu) compiled by GNU C version 4.1.2 20060901 (prerelease) (Debian 4.1.1-13). GGC heuristics: --param ggc-min-expand=99 --param ggc-min-heapsize=129579 In file ircmva.f:91 END 1 Internal Error at (1): gfc_resolve_expr(): Bad expression type Source code : SUBROUTINE IRCMVA ( NUMCMP, NCMPVE, NCMPRF, > NVALEC, NBPG, NBSP, NOLOPG, > ADSV, ADSD, ADSL, > TYMAST, MODNUM, NUANOM, > VAL, PROFAS, IDEB, IFIN ) IMPLICIT NONE INTEGER NTYMAX PARAMETER (NTYMAX = 48) INTEGER NCMPVE, NCMPRF, NVALEC, NBPG, NBSP INTEGER NUMCMP(NCMPRF) INTEGER ADSV, ADSD, ADSL INTEGER TYMAST INTEGER MODNUM(NTYMAX), NUANOM(NTYMAX,*) INTEGER PROFAS(*) INTEGER IDEB, IFIN REAL*8 VAL(NCMPVE,NBSP,NBPG,NVALEC) CHARACTER*32 NOLOPG REAL*8 ZR LOGICAL ZL COMMON /RVARJE/ZR(1) COMMON /LVARJE/ZL(1) CHARACTER*6 NOMPRO PARAMETER ( NOMPRO = 'IRCMVA' ) CHARACTER*32 EDELGA PARAMETER ( EDELGA='________ELNO____________________' ) INTEGER IAUX, JAUX, KAUX INTEGER ADSVXX INTEGER INO, IMA, NRCMP, NRCMPR, NRPG, NRSP INTEGER IFM, NIVINF LOGICAL LOGAUX CALL INFNIV ( IFM, NIVINF ) IF ( NIVINF.GT.1 ) THEN CALL UTMESS ( 'I', NOMPRO, > 'CREATION DES TABLEAUX DE VALEURS A ECRIRE AVEC :') WRITE (IFM,13001) NVALEC, NCMPVE, NBPG, NBSP ENDIF 13001 FORMAT(' NVALEC =',I8,', NCMPVE =',I8, > ', NBPG =',I8,', NBSP =',I8,/) IF ( TYMAST.EQ.0 ) THEN DO 21 , NRCMP = 1 , NCMPVE ADSVXX = ADSV-1+NUMCMP(NRCMP)-NCMPRF JAUX = 0 DO 211 , IAUX = IDEB, IFIN INO = PROFAS(IAUX) JAUX = JAUX + 1 KAUX = INO*NCMPRF VAL(NRCMP,1,1,JAUX) = ZR(ADSVXX+KAUX) 211 CONTINUE 21 CONTINUE ELSE LOGAUX = .FALSE. IF ( NOLOPG(9:16).EQ.EDELGA(9:16) ) THEN IF ( MODNUM(TYMAST).EQ.1 ) THEN LOGAUX = .TRUE. ENDIF ENDIF IF ( LOGAUX ) THEN IF ( NBSP.GT.1 ) THEN WRITE (IFM,13001) NVALEC, NCMPVE, NBPG, NBSP CALL UTMESS ( 'F', NOMPRO, > 'RENUMEROTATION IMPOSSIBLE AVEC PLUS D''UN SOUS-POINT') ENDIF ENDIF DO 22 , NRCMP = 1 , NCMPVE NRCMPR = NUMCMP(NRCMP) JAUX = 0 IF ( LOGAUX ) THEN NRSP = 1 DO 221 , IAUX = IDEB, IFIN IMA = PROFAS(IAUX) JAUX = JAUX + 1 DO 2211 , NRPG = 1 , NBPG CALL CESEXI ('C',ADSD,ADSL,IMA,NRPG,NRSP,NRCMPR,KAUX) VAL(NRCMP,NRSP,NUANOM(TYMAST,NRPG),JAUX)=ZR(ADSV-1+KAUX) 2211 CONTINUE 221 CONTINUE ELSE DO 222 , IAUX = IDEB, IFIN IMA = PROFAS(IAUX) JAUX = JAUX + 1 DO 2221 , NRPG = 1 , NBPG DO 2222 , NRSP = 1 , NBSP CALL CESEXI ('C',ADSD,ADSL,IMA,NRPG,NRSP,NRCMPR,KAUX) VAL(NRCMP,NRSP,NRPG,JAUX) = ZR(ADSV-1+KAUX) 2222 CONTINUE 2221 CONTINUE 222 CONTINUE ENDIF 22 CONTINUE ENDIF END -- Summary: Internal Error: gfc_resolve_expr(): Bad expression type Product: gcc Version: 4.1.2 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: mathieu dot courtois at free dot fr GCC host triplet: debian testing GCC target triplet: i486-linux-gnu http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29067