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

[tkoenig at gcc dot gnu dot org]

------- Comment #3 from tkoenig at gcc dot gnu dot org  2007-12-27 15:36 -------
Reduce test case:

$ cat end-2.f90
program main
  implicit none
  character(len=6) :: c (2) = ""
  write (c (2:1:-1), "(I2)") 5
end program main
$ gfortran end-2.f90
$ ./a.out
At line 4 of file end-2.f90
Fortran runtime error: End of file


-- 


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