gcc/testsuite/gfortran.dg/continuation_14.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 ! PR64506 fixed form source
   4       character(25) :: astring
   5
   6  100  format('This format is OK.'
   7      &)
   8  200  format('This format works now.'!comment << FAILS
   9      &)
  10  300  format('This format is OK.' !comment
  11      &)
  12  400  format('This format is OK.'  !comment
  13      &)
  14  500  format('This format is now OK.'''!comment
  15      &   )
  16  600  format('This format is OK.''' !comment
  17      &   )
  18       write(astring,100)
  19       if (astring.ne."This format is OK.") call abort
  20       write(astring,200)
  21       if (astring.ne."This format works now.") call abort
  22       write(astring,300)
  23       if (astring.ne."This format is OK.") call abort
  24       write(astring,400)
  25       if (astring.ne."This format is OK.") call abort
  26       write(astring,500)
  27       if (astring.ne."This format is now OK.'") call abort
  28       write(astring,600)
  29       if (astring.ne."This format is OK.'") call abort
  30       end