]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/execute/20001111.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 20001111.f
diff --git a/gcc/testsuite/g77.f-torture/execute/20001111.f b/gcc/testsuite/g77.f-torture/execute/20001111.f
deleted file mode 100644 (file)
index db342bb..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-      DOUBLE PRECISION VALUE(2), TOLD, BK
-      DATA VALUE /0D0, 1D0/
-      DATA TOLD /0D0/
-      DO I=1, 2
-         BK = VALUE(I)
-         IF(BK .GT. TOLD) GOTO 10
-      ENDDO
-      WRITE(*,*)'Error: BK = ', BK
-      CALL ABORT
- 10   CONTINUE
-      WRITE(*,*)'No Error: BK = ', BK
-      END