diff options
| author | Jeff Law <law@gcc.gnu.org> | 1997-11-02 23:07:39 -0700 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1997-11-02 23:07:39 -0700 |
| commit | afb6fb7665054449e7cffc37cdf7a154de351469 (patch) | |
| tree | 2642b32dbd7ae9d419eb07f9a6cdee9d5f0ef484 | |
| parent | a2977d2db3aaf1a3912922a28e513baaf7e2e8a4 (diff) | |
| download | gcc-afb6fb7665054449e7cffc37cdf7a154de351469.zip gcc-afb6fb7665054449e7cffc37cdf7a154de351469.tar.gz gcc-afb6fb7665054449e7cffc37cdf7a154de351469.tar.bz2 | |
New test.
From-SVN: r16292
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/971102-1.f | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/971102-1.f b/gcc/testsuite/g77.f-torture/execute/971102-1.f new file mode 100644 index 0000000..6b0c2f3 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/971102-1.f @@ -0,0 +1,11 @@ + i=3 + j=0 + do i=i,5 + j = j+i + end do + do i=3,i + j = j+i + end do + if (i.ne.7) call abort() + print *, i,j + end |