wtruncate.f

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F 代码 · 共 11 行

! { 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 source line not, too."
      END