Imported gcc-4.4.3

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

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 (file)
index 027c9fc..0000000
--- 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