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