diff options
| author | Jeffrey A Law <law@cygnus.com> | 2000-06-29 15:46:01 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 2000-06-29 09:46:01 -0600 |
| commit | 3097c22b202d860d624a6ada70866096d1b2aa5a (patch) | |
| tree | abe7cc7c250e3aeaee83741d9a1f25c9452deda4 /gcc | |
| parent | c727aa5e2813c510b1da0d8e5f61160c1fa01ceb (diff) | |
| download | gcc-3097c22b202d860d624a6ada70866096d1b2aa5a.zip gcc-3097c22b202d860d624a6ada70866096d1b2aa5a.tar.gz gcc-3097c22b202d860d624a6ada70866096d1b2aa5a.tar.bz2 | |
20000629-1.f: New test.
* g77.f-torture/compile/20000629-1.f: New test.
* g77.f-torture/compile/20000629-1.x: Expected to fail.
From-SVN: r34781
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20000629-1.f | 11 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20000629-1.x | 3 |
3 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3920223..635263c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +Thu Jun 29 09:42:40 2000 Jeffrey A Law (law@cygnus.com) + + * g77.f-torture/compile/20000629-1.f: New test. + * g77.f-torture/compile/20000629-1.x: Expected to fail. + 2000-06-28 Zack Weinberg <zack@wolery.cumb.org> Rearrange lots of files, removing entirely the diff --git a/gcc/testsuite/g77.f-torture/compile/20000629-1.f b/gcc/testsuite/g77.f-torture/compile/20000629-1.f new file mode 100644 index 0000000..c14021c --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000629-1.f @@ -0,0 +1,11 @@ + SUBROUTINE MIST(N, BETA) + IMPLICIT REAL*8 (A-H,O-Z) + INTEGER IA, IQ, M1 + DIMENSION BETA(N) + DO 80 IQ=1,M1 + IF (BETA(IQ).EQ.0.0D0) GO TO 120 + 80 CONTINUE + 120 IF (IQ.NE.1) GO TO 160 + 160 M1 = IA(IQ) + RETURN + END diff --git a/gcc/testsuite/g77.f-torture/compile/20000629-1.x b/gcc/testsuite/g77.f-torture/compile/20000629-1.x new file mode 100644 index 0000000..1005ae6 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000629-1.x @@ -0,0 +1,3 @@ +set torture_execute_xfail "*-*-*" + +return 0 |