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.") STOP 1
20      write(astring,200)
21      if (astring.ne."This format works now.") STOP 2
22      write(astring,300)
23      if (astring.ne."This format is OK.") STOP 3
24      write(astring,400)
25      if (astring.ne."This format is OK.") STOP 4
26      write(astring,500)
27      if (astring.ne."This format is now OK.'") STOP 5
28      write(astring,600)
29      if (astring.ne."This format is OK.'") STOP 6
30      end
31