d_lines_1.f   [plain text]

! { dg-do compile }
! { dg-options "-fd-lines-as-comments" }
d This is a comment.
D This line, too.
      end