! { 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
    )
800 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

end