From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 7 Aug 2010 12:10:25 +0000 (+0000)
Subject: re PR fortran/45143 ([F2008,corrig1] Endless loop with unlimited edit descriptor)
X-Git-Tag: releases/gcc-4.6.0~5185
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a4ed58ce81720f6d94a3149fd3b664a59357f9eb;p=thirdparty%2Fgcc.git

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 6d58091948f9..e7f4524d744f 100644
--- 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
index 000000000000..24c3fb59129e
--- /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" }