Break out of potentially infinite rescaling loop after 20 iterations

Author: martin-frbg

SRC/zlargv.f

@@ -201,7 +201,7 @@ SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC )
             FS = FS*SAFMN2
             GS = GS*SAFMN2
             SCALE = SCALE*SAFMN2
-            IF( SCALE.GE.SAFMX2 )
+            IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 )
      $         GO TO 10
          ELSE IF( SCALE.LE.SAFMN2 ) THEN
             IF( G.EQ.CZERO ) THEN