[Bug fortran/34565] New: internal write to string array fails

[burnus at gcc dot gnu dot org]

More bugs found via the test suite

Gfortran 4.1, 4.2 and 4.3 show the run-time error:
    Fortran runtime error: End of file

implicit none
integer :: i
character(len=6) :: c (5) = ""
write (c (5:1:-2), "(I2,I2,I2)") 5,3,1
if (any(c(1:4) /= "")) stop 'ERROR 1'
if (c(5) /= " 5 3 1") stop 'ERROR 2'
do i = 1, 5
  print '(i0,3a)', i, '"',c(i),'"'
end do
end


-- 
           Summary: internal write to string array fails
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org
OtherBugsDependingO 32834
             nThis:


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