diff options
| author | zack <zack@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-10-01 01:24:02 +0000 |
|---|---|---|
| committer | zack <zack@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-10-01 01:24:02 +0000 |
| commit | db9e2b98cab772c0cc7d86044f08c324d464f166 (patch) | |
| tree | 934832030a77a1a7b7e26df33ab5ff4bab8733dc | |
| parent | fc9f1843c0e09a8e24a2701f57a048848f0e99b4 (diff) | |
| download | ppe42-gcc-db9e2b98cab772c0cc7d86044f08c324d464f166.tar.gz ppe42-gcc-db9e2b98cab772c0cc7d86044f08c324d464f166.zip | |
New test
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@36682 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 00000000000..bdf10d7fbde --- /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 |
