! { dg-do compile }
c { dg-options "-fd-lines-as-code" }
      i = 0
d     end
      subroutine s
D     end