1! { dg-do compile }
2! { dg-options "-Wall" }
3
4! This long comment line should not trigger a line-truncation warning with -Wall even for free-form 132 character line limit (blah blah)
5
6      PROGRAM foo
7      WRITE (*,*) "Test"           ! Neither this comment which exceeds the 132 character limit with some random words, too (blah blah)
8      WRITE (*,*) "This exactly 132 character long soruce line not, too.  How can people fill 132 characters without sensless stuff"
9      END
10
11