gcc/testsuite/gfortran.dg/line_length_4.f90

   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-warning "Line truncated" " " { target *-*-* } 8 }