[Bug fortran/22342] New: Internal write to character array causes "internal compiler error"

[mick at nag dot co dot uk]

This program:

      PROGRAM BUG
      INTEGER IERR
      CHARACTER*80 REC(2)
      IERR = 0
      WRITE (REC,FMT=99999) IERR
99999 FORMAT (' The input parameters contained ',I2,/,' error(s)')
      WRITE (*,*) REC
      END

causes the internal compiler error shown below (running under
64-bit SuSE Linux 9.3 Professional on AMD Opteron):

% gfortran --version
GNU Fortran 95 (GCC 4.1.0 20050706 (experimental))
Copyright (C) 2005 Free Software Foundation, Inc.

% gfortran bug.f
bug.f: In function ‘MAIN__’:
bug.f:4: 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.

-- 
           Summary: Internal write to character array causes "internal
                    compiler error"
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: mick at nag dot co dot uk
                CC: gcc-bugs at gcc dot gnu dot org


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