[Bug fortran/40576] New: [4.5 Regression] Endless loop in internal write

[tkoenig at gcc dot gnu dot org]

$ cat foo.f90
program main
  character(len=20) :: line
  integer, dimension(4) :: n
  n = 1
  write(line,'(2I2)') n
end program main

$ gfortran foo.f90
$ time ./a.out  ! Interrupted by control-c


real    0m1.424s
user    0m1.404s
sys     0m0.000s
$ /usr/bin/gfortran-4.3 -static foo.f90
$ ./a.out
At line 5 of file foo.f90
Fortran runtime error: End of file


-- 
           Summary: [4.5 Regression] Endless loop in internal write
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tkoenig at gcc dot gnu dot org


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