[Bug fortran/20059] New: internal compiler error: Segmentation Fault - For common blocks

[dir at lanl dot gov]

I get an Segmentation Fault with the Macintosh gfortran from the 20050213
package for this program.


[dranta:~/tests/gfortran] dir% gfortran -c plotz.f
[address=6f6c0004 pc=000140d0]
plotz.f: In function 'plotz':
plotz.f:1: internal compiler error: Segmentation Fault
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 plotz.f
      SUBROUTINE PLOTZ
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      COMMON /HEAD/ HED,P(3)
      CHARACTER HED*80,P*1
      COMMON /ULAB/ LAB(5)
      CHARACTER*80 LAB
      COMMON /IODATA/ DATA(64)
      COMMON /TAPES/ NOUT,NTAPE2,NTAPE3,NTAPE4,NTAPE5,NTAPE6,NTAPE7,
     $ NTAPE8,NTAPE9
      COMMON /CCPOOL/ RMIN,RMAX,ZMIN,ZMAX,IMIN,JMIN,IMAX,JMAX,NFLOP,
     $ HTP,SCALEP,ANGP,CCXMAX,WIDTH
C
        RETURN
      END

-- 
           Summary: internal compiler error: Segmentation Fault - For common
                    blocks
           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=20059