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