From a4ed58ce81720f6d94a3149fd3b664a59357f9eb Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 7 Aug 2010 12:10:25 +0000 Subject: [PATCH] re PR fortran/45143 ([F2008,corrig1] Endless loop with unlimited edit descriptor) 2010-08-07 Jerry DeLisle PR libfortran/45143 * gfortran.dg/fmt_error_11.f03: New test. From-SVN: r162979 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_error_11.f03 | 8 ++++++++ 2 files changed, 13 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_error_11.f03 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 + + PR libfortran/45143 + * gfortran.dg/fmt_error_11.f03: New test. + 2010-08-07 Marcus Shawcroft * 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" } -- 2.47.2