| ! { 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 |