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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/g77.f-torture/compile/20000629-1.f

+      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

gcc/testsuite/g77.f-torture/compile/20000629-1.x

+set torture_execute_xfail "*-*-*"
+
+return 0