2 ! { dg-options "-std=f2018 -Wline-truncation" }
4 ! By default, for free-form source code: Error out
5 ! Even with -Wline-truncation, we still get an error
7 print *, 1 + 2 ! { dg-error "Line truncated at .1." }
9 ! { dg-prune-output "some warnings being treated as errors" }