1! { dg-do run }
2! { dg-options "-std=gnu" }
3! PR64506 fixed form source
4      character(25) :: astring
5
6 100  format('This format is OK.'
7     &)
8 200  format('This format works now.'!comment << FAILS
9     &)
10 300  format('This format is OK.' !comment
11     &)
12 400  format('This format is OK.'  !comment
13     &)
14 500  format('This format is now OK.'''!comment
15     &   )
16 600  format('This format is OK.''' !comment
17     &   )
18      write(astring,100)
19      if (astring.ne."This format is OK.") call abort
20      write(astring,200)
21      if (astring.ne."This format works now.") call abort
22      write(astring,300)
23      if (astring.ne."This format is OK.") call abort
24      write(astring,400)
25      if (astring.ne."This format is OK.") call abort
26      write(astring,500)
27      if (astring.ne."This format is now OK.'") call abort
28      write(astring,600)
29      if (astring.ne."This format is OK.'") call abort
30      end
31