Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 20010430.f

diff --git a/gcc/testsuite/g77.f-torture/execute/20010430.f b/gcc/testsuite/g77.f-torture/execute/20010430.f
deleted file mode 100644 (file)
index 58dca83..0000000
--- a/gcc/testsuite/g77.f-torture/execute/20010430.f
+++ /dev/null
@@ -1,20 +0,0 @@
-      REAL DAT(2,5)
-      DO I = 1, 5
-         DAT(1,I) = I*1.6356-NINT(I*1.6356)
-         DAT(2,I) = I
-      ENDDO
-      DO I = 1, 4
-         DO J = I+1, 5
-            IF (DAT(1,J) - DAT(1,I) .LT. 0.0) THEN
-               DO K = 1, 2
-                  TMP = DAT(K,I)
-                  DAT(K,I) = DAT(K,J)
-                  DAT(K,J) = TMP
-               ENDDO
-            ENDIF
-         ENDDO
-      ENDDO
-      DO I = 1, 4
-         IF (DAT(1,I) .GT. DAT(1,I+1)) CALL ABORT
-      ENDDO
-      END