| ! { dg-do compile } | |
| ! { dg-options "-Wall" } | |
| ! | |
| ! By default, for free-form source code: Error out | |
| ! Even with -Wall, we still get an error | |
| ! | |
| print *, 1 + 2 ! { dg-error "Line truncated at .1." } | |
| end | |
| ! { dg-prune-output "some warnings being treated as errors" } |