gcc/testsuite/gfortran.dg/fmt_error_11.f03

   1 ! { dg-do run }
   2 ! PR45143  Endless loop with unlimited edit descriptor
   3     print 20, "1234", "abcd", "14rfa5"
   4  20 format ( *('start',('ahdh',('dhdhhow',a),'ndlownd  ')))
   5     print 30, "1234", "abcd", "14rfa5"
   6  30 format ( *('start',('ahdh',('dhdhhow'),'ndlownd  ')))
   7 end
   8 ! { dg-shouldfail "Fortran runtime error: '*' requires at least one associated data descriptor" }