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
11