1! { dg-do compile }
2! { dg-options "-Wall" }
3!
4! By default, for free-form source code: Error out
5! Even with -Wall, we still get an error
6!
7 print *, 1 + 2 ! { dg-error "Line truncated at .1." }
8 end
9! { dg-excess-errors "some warnings being treated as errors" }
10