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

diff --git a/gcc/testsuite/g77.f-torture/execute/947.f b/gcc/testsuite/g77.f-torture/execute/947.f
deleted file mode 100644
index 7efa204d..00000000
--- a/gcc/testsuite/g77.f-torture/execute/947.f
+++ /dev/null
@@ -1,12 +0,0 @@
-      DIMENSION A(-5:5)
-      INTEGER*1 IM5, IZ, IP5
-      INTEGER*2 IM1, IP1
-      PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
-      DATA A(IM5) /-5./, A(IM1) /-1./
-      DATA A(IZ)  /0./
-      DATA A(IP5) /+5./, A(IP1) /+1./
-      IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
-     ,    A(IZ)  .NE.  0. .OR.
-     ,    A(IP5) .NE. +5. .OR. A(IP1) .NE. +1. )
-     ,  CALL ABORT
-      END