diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2862d9c2e128136e0f8387c2e6d78fe7a702dc46..12d70b9b5e19cd05b7ae4bb61c07f31939493674 100644
--- 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
index 0000000000000000000000000000000000000000..3dfcaad2677c9c4e10524f2bd83207d02cab1e0a
--- /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" }