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