[Bug fortran/18781] New: [ICE] WRITE with FMT given in DATA

["coudert at clipper dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

Hi,

working along the non-resolved NIST test failures, here is the reduced test case
for FM711:

----------------------------------
      PROGRAM FM711
      IMPLICIT NONE
      CHARACTER C1N002(4)*5
      DATA C1N002 / '(10HI', '/O TE', 'ST: ,', ' A10)' /
      WRITE (*, FMT=C1N002) 1
      STOP
      END
----------------------------------

With gcc version 4.0.0 20041202, compilation exits on an ICE:

$ gfortran foo.f -c
foo.f: In function ?MAIN__?:
foo.f:5: internal compiler error: Segmentation fault

-- 
           Summary: [ICE] WRITE with FMT given in DATA
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: coudert at clipper dot ens dot fr
                CC: gcc-bugs at gcc dot gnu dot org


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