X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.f-torture%2Fexecute%2F20001111.f;fp=gcc%2Ftestsuite%2Fg77.f-torture%2Fexecute%2F20001111.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=db342bbd42b93f452a6d956c1ad5b29a0d99af25;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/gcc/testsuite/g77.f-torture/execute/20001111.f b/gcc/testsuite/g77.f-torture/execute/20001111.f
deleted file mode 100644
index db342bbd..00000000
--- a/gcc/testsuite/g77.f-torture/execute/20001111.f
+++ /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