2 ! { dg-options "-std=gnu" }
4 character(25) :: astring
6 100 format('This format is OK.'&
8 200 format('This format now works.'&!comment
10 300 format('This format now works.'& !comment
12 400 format('This format is OK.' &!comment
14 500 format('This format is OK.' & !comment
16 600 format('This format now works.'''&!comment
18 700 format('This format now works.'''& !comment
20 ! See PR65903 for the following cases.
21 800 format('This is actually ok.'& !comment
23 900 format('This is actually ok.' & !comment
26 if (astring
.ne
."This format is OK.") call abort
28 if (astring
.ne
."This format now works.") call abort
30 if (astring
.ne
."This format now works.") call abort
32 if (astring
.ne
."This format is OK.") call abort
34 if (astring
.ne
."This format is OK.") call abort
36 if (astring
.ne
."This format now works.'") call abort
38 if (astring
.ne
."This format now works.'") call abort
40 if (astring
.ne
."This is actually ok.' end") call abort
42 if (astring
.ne
."This is actually ok. end") call abort