gcc/testsuite/gfortran.dg/wtruncate_fix.f

   1 c { dg-do compile }
   2 c { dg-options "-Wall" }
   3 c PR42852 -Wall warns about truncated lines when only a continuation character is truncated
   4       print *, "Hello!"                                                  &   !xxxxx
   5      & //   " World!"
   6       print *, "Hello!"                                                  &   xxxxx
   7      & //   " World!"
   8       print *, "Hello!"                                                  //
   9      & //   " World!"
  10       end
  11 c { dg-warning "Line truncated" " " { target *-*-* } 6 }
  12 c { dg-warning "Line truncated" " " { target *-*-* } 8 }