diff options
| author | Zack Weinberg <zack@gcc.gnu.org> | 2000-10-01 01:24:02 +0000 |
|---|---|---|
| committer | Zack Weinberg <zack@gcc.gnu.org> | 2000-10-01 01:24:02 +0000 |
| commit | 9256db1dea11f28654770cdfd450c95c3cc53a0f (patch) | |
| tree | 934832030a77a1a7b7e26df33ab5ff4bab8733dc /gcc | |
| parent | 304daac5d9eaa21727faa45e3e3881608d4ec2a8 (diff) | |
| download | gcc-9256db1dea11f28654770cdfd450c95c3cc53a0f.zip gcc-9256db1dea11f28654770cdfd450c95c3cc53a0f.tar.gz gcc-9256db1dea11f28654770cdfd450c95c3cc53a0f.tar.bz2 | |
New test
From-SVN: r36682
Diffstat (limited to 'gcc')
| -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 |