gcc/testsuite/gfortran.dg/wtruncate.f - gcc - Git at Google

 ! { dg-do compile }
 ! { dg-options "-Wall" }

 ! This long comment line should not trigger a line-truncation warning with -Wall

       PROGRAM foo
       WRITE (*,*) "Test"           ! Neither this comment which exceeds the 72 character limit, too
       WRITE (*,*) "This exactly 72 character long soruce line not, too."
       END
	! { dg-do compile }
	! { dg-options "-Wall" }

	! This long comment line should not trigger a line-truncation warning with -Wall

	PROGRAM foo
	WRITE (,) "Test" ! Neither this comment which exceeds the 72 character limit, too
	WRITE (,) "This exactly 72 character long soruce line not, too."
	END