1! { dg-do compile } 2! { dg-options "-Wline-truncation -ffree-line-length-80" } 3! PR39229 No warning of truncated lines if a continuation line follows 4 implicit none 5 call foo([11, 22, 33, 44, 55, 66, 770, 9900, 1100, 1100, 120],11,'hello') !no warn 6 7 print *, min(35 & 8 & , 25 ), " Explanation ! " warn 9 contains 10 subroutine foo(a,n,s) 11 integer :: a(*), n, i 12 character(len=*) :: s 13 do i = 1, n 14 print *, s, a(i) 15 end do 16 end subroutine foo 17 end 18! { dg-error "Line truncated" " " { target *-*-* } 8 } 19! { dg-excess-errors "some warnings being treated as errors" } 20