1! { dg-do compile } 2! { dg-options "-Wno-line-truncation" } 3! 4! By default, for free-form source code: Error out 5! But due to the explicit -Wno-line-truncation, compile w/o warning 6! 7 print *, 1 + 2 8 end 9