gcc/testsuite/gfortran.dg/line_length_9.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2018 -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-prune-output "some warnings being treated as errors" }