[Bug fortran/20057] New: internal compiler error: Bus error

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

I get a bus error with macintosh gfortran from the 20050213 package. Here is
a simple routine that has the problem -

[dranta:~/tests/gfortran] dir% gfortran -c mesh3d.f
mesh3d.f: In function 'mesh3d':
mesh3d.f:9: internal compiler error: Bus error
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[dranta:~/tests/gfortran] dir% cat mesh3d.f
      SUBROUTINE MESH3D (XN,YN,ZN,IDEF,NI,NJ,NK,CIJ,NSEG1,IPRINT,NSKIP)
C
      COMMON /IODATA/ DATA(128)
      COMMON /IOSTRG/ STRG(128)
      CHARACTER*12 STRG
C
      DO 290 N=1,32,4
      NM=NEAR(DATA(N))
      IF (NM.EQ.0) GO TO 400
      IF (NM.LT.5.OR.NM.GT.NPT) THEN
        WRITE(STRG,1000) NPT
        CALL ERROR2(114,NM,IMIN,FLOAT(JMIN),FLOAT(KMIN),COMAND,STRG)
      END IF
  290 CONTINUE
      GO TO 400
  400 CALL STEVE(INT,XN,YN,ZN,NI,NJ,NF,CIJ,NSEG1)
 1000 FORMAT(I2)
      END

-- 
           Summary: internal compiler error: Bus error
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.8.0


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