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

 100  format('This format is OK.'
     &)
 200  format('This format works now.'!comment << FAILS
     &)
 300  format('This format is OK.' !comment
     &)
 400  format('This format is OK.'  !comment
     &)
 500  format('This format is now OK.'''!comment
     &   )
 600  format('This format is OK.''' !comment
     &   )
      write(astring,100)
      if (astring.ne."This format is OK.") call abort
      write(astring,200)
      if (astring.ne."This format works now.") call abort
      write(astring,300)
      if (astring.ne."This format is OK.") call abort
      write(astring,400)
      if (astring.ne."This format is OK.") call abort
      write(astring,500)
      if (astring.ne."This format is now OK.'") call abort
      write(astring,600)
      if (astring.ne."This format is OK.'") call abort
      end