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

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

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6d58091..e7f4524 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" }