| ! { dg-do compile } | |
| ! { dg-options "-Wall -std=f95" } | |
| ! There should only two warnings be printed. | |
| ! PR fortran/30968 | |
| print *, "Foo bar& | |
| &Bar foo" | |
| print *, "Foo bar& | |
| Bar foo" ! { dg-warning "Missing '&' in continued character constant" } | |
| print *, "Foo bar"& | |
| &, "Bar foo" | |
| print *, "Foo bar"& | |
| , "Bar foo" | |
| print '(& | |
| a)', 'Hello' ! { dg-warning "Missing '&' in continued character constant" } | |
| print '(& | |
| &a)', 'Hello' | |
| print '('& | |
| &//'a)', 'Hello' | |
| print '('& | |
| // "a)", 'Hello' | |
| end |