Compiling this code:  
  
=========  
# 1 "prob.F"  
# 0 "<built-in>"  
# 1 "<command line>"  
# 1 "prob.F"  
      SUBROUTINE XSHIF2 (A,WORK)  
      COMMON /CNETIN/ IMA,JMA,KMA  
     1               ,IMAP2,JMAP2,KMAP2  
     2               ,IKBL0,IKBL2,JKBL2,IJKBL0,IJKBL2  
     3               ,JD2,JD2P1,IPOISS,ODJMA,ODIMA  
      COMMON /CRUNIN/ IUFI,IULA,IPFI,IPLA  
     1               ,JVFI,JVLA,JPFI,JPLA  
     2               ,KWFI,KWLA,KPFI,KPLA  
     3               ,IUFIM1,IULAP1,IPFIM1,IPLAP1  
     4               ,JVFIM1,JVLAP1,JPFIM1,JPLAP1  
     5               ,KWFIM1,KWLAP1,KPFIM1,KPLAP1  
     6               ,JKPFI,JKWFI  
C  
      DIMENSION A(*),WORK(*)  
C  
      N = IMA*JMAP2*KMA+1  
      DO 10 I=IPLA,IPFI,-1  
        LI = (I-1)*JKBL2  
        DO 20 K=KPLA,KPFI,-1  
          LK  = (K-1)*JMAP2  
          LIK = LI + LK  
          N   = N - 2  
          DO 30 J=JPLA,JPFI,-1  
            N       = N - 1  
            WORK(J) = A(N)  
   30     CONTINUE  
          DO 31 J=JPLA,JPFI,-1  
            LIJK    = LIK + J  
            A(LIJK) = WORK(J)  
   31     CONTINUE  
   20   CONTINUE  
   10 CONTINUE  
C  
C---- END OF SUBROUTINE  X S H I F 2  
C  
      RETURN  
      END  
  
=========  
  
with:  
=========  
gfortran -Wall -Wextra -ffixed-line-length-0 -O1 -m64 -pedantic -c prob.F  
=========  
  
results in:  
=========  
prob.F: In function &#8216;xshif2&#8217;:  
prob.F:1: internal compiler error: Segmentation fault  
=========  
  
Output of gfortran -v:  
  
=========  
Using built-in specs.  
Target: x86_64-unknown-linux-gnu  
Configured with: ./configure --prefix=/home/vici --enable-languages=f95 :  
(reconfigured) ./configure --prefix=/home/vici --enable-languages=c,f95  
--no-create --no-recursion : (reconfigured) ./configure --prefix=/home/vici  
--enable-languages=c,f95 --enable-mapped-location : (reconfigured) ./configure  
--prefix=/home/vici --enable-mapped-location --enable-languages=c,f95  
--no-create --no-recursion : (reconfigured) ./configure --prefix=/home/vici  
--enable-mapped-location --enable-languages=c,f95 --no-create --no-recursion :  
(reconfigured) ./configure --prefix=/home/vici --enable-mapped-location  
--enable-languages=c,f95 --no-create --no-recursion :  
(reconfigured) ./configure --prefix=/home/vici --enable-mapped-location  
--enable-languages=c,f95 --no-create --no-recursion  
Thread model: posix  
gcc version 4.1.0 20050608 (experimental)  
=========  
  
Using -m32 works.  
  
The problem does not occur on 20050605. 
  
Victor

-- 
           Summary: ICE (Segmentation fault) with -m64
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: regression
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fischer at td dot mw dot tum dot de
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: x86_64-linux-gnu
  GCC host triplet: x86_64-linux-gnu
GCC target triplet: x86_64-linux-gnu


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

Reply via email to