d_lines_2.f
[
plain text
]
! { dg-
do
compile }
c { dg-options "-fd-lines-as-code" }
i = 0 d
end
subroutine
s D
end