gcc/testsuite/gfortran.dg/continuation_13.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 ! PR64506
   4 character(25) :: astring
   5
   6 100 format('This format is OK.'&
   7     )
   8 200 format('This format now works.'&!comment
   9     )
  10 300 format('This format now works.'& !comment
  11     )
  12 400 format('This format is OK.' &!comment
  13     )
  14 500 format('This format is OK.' & !comment
  15     )
  16 600 format('This format now works.'''&!comment
  17     )
  18 700 format('This format now works.'''& !comment
  19     )
  20 ! See PR65903 for the following cases.
  21 800 format('This is actually ok.'& !comment
  22    ' end'  )
  23 900 format('This is actually ok.' & !comment
  24    ' end'  )
  25 write(astring,100)
  26 if (astring.ne."This format is OK.") call abort
  27 write(astring,200)
  28 if (astring.ne."This format now works.") call abort
  29 write(astring,300)
  30 if (astring.ne."This format now works.") call abort
  31 write(astring,400)
  32 if (astring.ne."This format is OK.") call abort
  33 write(astring,500)
  34 if (astring.ne."This format is OK.") call abort
  35 write(astring,600)
  36 if (astring.ne."This format now works.'") call abort
  37 write(astring,700)
  38 if (astring.ne."This format now works.'") call abort
  39 write(astring,800)
  40 if (astring.ne."This is actually ok.' end") call abort
  41 write(astring,900)
  42 if (astring.ne."This is actually ok. end") call abort
  43
  44 end