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.") STOP 1
  27 write(astring,200)
  28 if (astring.ne."This format now works.") STOP 2
  29 write(astring,300)
  30 if (astring.ne."This format now works.") STOP 3
  31 write(astring,400)
  32 if (astring.ne."This format is OK.") STOP 4
  33 write(astring,500)
  34 if (astring.ne."This format is OK.") STOP 5
  35 write(astring,600)
  36 if (astring.ne."This format now works.'") STOP 6
  37 write(astring,700)
  38 if (astring.ne."This format now works.'") STOP 7
  39 write(astring,800)
  40 if (astring.ne."This is actually ok.' end") STOP 8
  41 write(astring,900)
  42 if (astring.ne."This is actually ok. end") STOP 9
  43
  44 end