gcc/testsuite/gfortran.dg/g77/20000503-1.f

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