re PR fortran/45143 ([F2008,corrig1] Endless loop with unlimited edit descriptor)

2010-08-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/45143
	* gfortran.dg/fmt_error_11.f03: New test.

From-SVN: r162979

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6d58091948f9fbf464b27521b770a2a3623303df..e7f4524d744f563521c53e0151eae751299b8006 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/45143
+       * gfortran.dg/fmt_error_11.f03: New test.
+
 2010-08-07  Marcus Shawcroft <marcus.shawcroft@arm.com>
 
         * lib/target-supports.exp: (check_effective_target_sync_int_long):

diff --git a/gcc/testsuite/gfortran.dg/fmt_error_11.f03 b/gcc/testsuite/gfortran.dg/fmt_error_11.f03
new file mode 100644 (file)
index 0000000..24c3fb5
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_error_11.f03
@@ -0,0 +1,8 @@
+! { dg-do run }
+! PR45143  Endless loop with unlimited edit descriptor
+    print 20, "1234", "abcd", "14rfa5"
+ 20 format ( *('start',('ahdh',('dhdhhow',a),'ndlownd  ')))
+    print 30, "1234", "abcd", "14rfa5"
+ 30 format ( *('start',('ahdh',('dhdhhow'),'ndlownd  ')))
+end
+! { dg-shouldfail "Fortran runtime error: '*' requires at least one associated data descriptor" }