blob: b4ebf49c4bffa67bfb7b3cc27827540e55cb7e8f [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wno-error" }
!
! By default, for free-form source code: Error out
! But due to -Wno-error, we only expect a warning
!
print *, 1 + 2 ! { dg-warning "Line truncated at .1." }
end