diff options
author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-06-29 15:46:01 +0000 |
---|---|---|
committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-06-29 15:46:01 +0000 |
commit | db4c30ffa5f0480c783c408a6c7f46519f1ed5f6 (patch) | |
tree | abe7cc7c250e3aeaee83741d9a1f25c9452deda4 | |
parent | ecdd3d843ca3d488b868afea49c42e808c6908bb (diff) |
* g77.f-torture/compile/20000629-1.f: New test.
* g77.f-torture/compile/20000629-1.x: Expected to fail.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@34781 138bc75d-0d04-0410-961f-82ee72b054a4
-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 39202234bcf..635263c83a0 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 00000000000..c14021c4fa3 --- /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 00000000000..1005ae6c850 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000629-1.x @@ -0,0 +1,3 @@ +set torture_execute_xfail "*-*-*" + +return 0 |