1! { dg-do compile }
2! { dg-options "-Wno-error" }
3!
4! By default, for free-form source code: Error out
5! But due to -Wno-error, we only expect a warning
6!
7      print *, 1                                                                                                                                          + 2 ! { dg-warning "Line truncated at .1." }
8      end
9