From c1a5cfab17521708db174ed25707f2eee57727fe Mon Sep 17 00:00:00 2001
From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Tue, 30 Jun 2009 17:10:06 +0000
Subject: [PATCH] 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 | 5 +++++
gcc/testsuite/gfortran.dg/internal_write_1.f90 | 9 +++++++++
2 files changed, 14 insertions(+)
create mode 100644 gcc/testsuite/gfortran.dg/internal_write_1.f90
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2862d9c2e128..12d70b9b5e19 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 000000000000..3dfcaad2677c
--- /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" }
--
GitLab