d_lines_3.f   [plain text]


C { dg-do compile }
C { dg-options "-fd-lines-as-code" }
C Verifies that column numbers are dealt with correctly when handling D lines.
C234567890
d     i = 0 ! this may not move to the left
d    1  + 1 ! this should be a continuation line
      goto 2345
d23450continue ! statement labels are correctly identified
      end