diff options
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/cpp.F | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/cpp.F b/gcc/testsuite/g77.f-torture/compile/cpp.F new file mode 100644 index 0000000..bdf10d7 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/cpp.F @@ -0,0 +1,9 @@ +C When run through the C preprocessor, the indentation of the +C CONTINUE line must not be mangled. + subroutine aap(a, n) + dimension a(n) + do 10 i = 1, n + a(i) = i + 10 continue + print *, a(1) + end |