re PR fortran/40576 (Endless loop in internal write)

2009-06-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/40576
	* gfortran.dg/internal_write_1.f90:  New testcase.

From-SVN: r149109

gcc/testsuite/ChangeLog

+2009-06-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/40576
+	* gfortran.dg/internal_write_1.f90:  New testcase.
+
 2009-06-30  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/40594

gcc/testsuite/gfortran.dg/internal_write_1.f90

+! { dg-do run }
+! { dg-shouldfail "End of file" }
+program main
+  character(len=20) :: line
+  integer, dimension(4) :: n
+  n = 1
+  write(line,'(2I2)') n
+end program main
+! { dg-output "Fortran runtime error: End of file" }