gcc/testsuite/g77.f-torture/execute/20000503-1.f

   1 *
   2 *  Originally derived from LAPACK 3.0 test suite failure.
   3 *
   4 *  David Billinghurst, (David.Billinghurst@riotinto.com.au)
   5 *  23 February 2000
   6 *
   7       INTEGER N, I, SLASQX
   8       N = 20
   9       I = SLASQX( N )
  10       IF ( I .NE. 2*N ) THEN
  11          WRITE(6,*) 'I = ', I, ' but should be ', 2*N
  12          CALL ABORT()
  13       END IF
  14       END
  15
  16       INTEGER FUNCTION SLASQX( N )
  17       INTEGER  N, I0, I, K
  18       I0 = 1
  19       DO I = 4*I0, 2*( I0+N-1 ), 4
  20          K = I
  21       END DO
  22       SLASQX = K
  23       RETURN
  24       END