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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149109 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2862d9c..12d70b9 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/internal_write_1.f90 b/gcc/testsuite/gfortran.dg/internal_write_1.f90
new file mode 100644 (file)
index 0000000..3dfcaad
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/internal_write_1.f90
@@ -0,0 +1,9 @@
+! { 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" }