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

diff --git a/gcc/testsuite/g77.f-torture/execute/20000503-1.f b/gcc/testsuite/g77.f-torture/execute/20000503-1.f
deleted file mode 100644
index 027c9fc6..00000000
--- a/gcc/testsuite/g77.f-torture/execute/20000503-1.f
+++ /dev/null
@@ -1,24 +0,0 @@
-*
-*  Originally derived from LAPACK 3.0 test suite failure.
-*
-*  David Billinghurst, (David.Billinghurst@riotinto.com.au)
-*  23 February 2000
-* 
-      INTEGER N, I, SLASQX
-      N = 20
-      I = SLASQX( N ) 
-      IF ( I .NE. 2*N ) THEN
-         WRITE(6,*) 'I = ', I, ' but should be ', 2*N
-         CALL ABORT()
-      END IF
-      END
-
-      INTEGER FUNCTION SLASQX( N )
-      INTEGER  N, I0, I, K
-      I0 = 1
-      DO I = 4*I0, 2*( I0+N-1 ), 4
-         K = I
-      END DO
-      SLASQX = K
-      RETURN
-      END