gcc/testsuite/gfortran.dg/wtruncate.f

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3
   4 ! This long comment line should not trigger a line-truncation warning with -Wall
   5
   6       PROGRAM foo
   7       WRITE (*,*) "Test"           ! Neither this comment which exceeds the 72 character limit, too
   8       WRITE (*,*) "This exactly 72 character long soruce line not, too."
   9       END
  10