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