gcc/testsuite/gfortran.dg/continuation_13.f90

! { dg-do run }
! { dg-options "-std=gnu" }
! PR64506
character(25) :: astring

100 format('This format is OK.'&
    )
200 format('This format now works.'&!comment
    )
300 format('This format now works.'& !comment
    )
400 format('This format is OK.' &!comment
    )
500 format('This format is OK.' & !comment
    )
600 format('This format now works.'''&!comment
    )
700 format('This format now works.'''& !comment
    )
! See PR65903 for the following cases.
800 format('This is actually ok.'& !comment
   ' end'  )
900 format('This is actually ok.' & !comment
   ' end'  )
write(astring,100)
if (astring.ne."This format is OK.") call abort
write(astring,200)
if (astring.ne."This format now works.") call abort
write(astring,300)
if (astring.ne."This format now works.") call abort
write(astring,400)
if (astring.ne."This format is OK.") call abort
write(astring,500)
if (astring.ne."This format is OK.") call abort
write(astring,600)
if (astring.ne."This format now works.'") call abort
write(astring,700)
if (astring.ne."This format now works.'") call abort
write(astring,800)
if (astring.ne."This is actually ok.' end") call abort
write(astring,900)
if (astring.ne."This is actually ok. end") call abort

end