g77 snapshot LAPACK testsuite failure - irix 6.5

[Billinghurst, David (RTD)]

I have reduced this down to a trivial test case with the wrong number of
iterations for a loop

      DO I = 4*I0, 2*( I0+N-1 ), 4
         ...  
      END DO


 <<labug5.f>> 
+++++++++++++++++++++++++++++++++++++++++
(Mr) David Billinghurst
Comalco Research Centre
PO Box 316, Thomastown, Vic, Australia, 3074
Phone:	+61 3 9469 0642
FAX:	+61 3 9462 2700
Email:	David.Billinghurst@riotinto.com.au



-------------- next part --------------
      program labug5

*  This program gives the wrong answer on mips-sgi-irix6.5
*  when compiled with g77 from egcs-20000221.  The number of 
*  loop iterations is wrong.
*
*  Works with 
*    - g77 from gcc-2.95.2
*    - Irix MipsPro Fortran 77 7.2.1
*
*  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