1! { dg-do compile } 2! { dg-options "-std=gnu -ffixed-form -Wline-truncation" } 3! PR39229 No warning of truncated lines if a continuation line follows 4 ! expected: no warning by default (as column 73+ is often used for ) 5 ! comments in fixed-form source code. 6 ! however, with -wline-truncation there shall be a warning. 7 implicit none 8 call foo([11, 22, 33, 44, 55, 66, 770, 9900, 1100, 1100, 120], 12 warn 9 & , 'hello') 10 print *, min(35 11 1 , 25 warn 12 2 ) 13 contains 14 subroutine foo(a,n,s) 15 integer :: a(*), n, i 16 character(len=*) :: s 17 do i = 1, n 18 print *, s, a(i) 19 end do 20 end subroutine foo 21 end 22! { dg-warning "Line truncated" " " { target *-*-* } 8 } 23! { dg-warning "Line truncated" " " { target *-*-* } 11 } 24