BUG: g77 -O -march=pentiumpro, once again

[Martin Kahlert]

Hi,
I can provide a much smaller test programm for the bug, Jason found:
(it's from slaein.f)
gcc -O -march=pentiumpro -c h.f 

      SUBROUTINE SLAEIN(N,VR, VI,EPS3)
      IMPLICIT NONE
      INTEGER N
      REAL VR(*),VI(*),EPS3,ROOTN,NORM,NRMSML,REC
      REAL SNRM2,SLAPY2
      EXTERNAL SNRM2,SLAPY2

      NORM = SLAPY2( SNRM2( N, VR, 1 ), SNRM2( N, VI, 1 ) )
      REC = ( EPS3*ROOTN ) / MAX( NORM, NRMSML )
      CALL SSCAL( N, REC, VR, 1 )
      RETURN
      END

Hope that helps a bit,
Martin.