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

gcc/testsuite/ChangeLog

+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):

gcc/testsuite/gfortran.dg/fmt_error_11.f03

+! { 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" }