Break out of potentially infinite rescaling loop in LAPACK xLARGV/xLARTG/xLARTGP

Reference-LAPACK issue 411
2020-06-07 14:30:20 +02:00
parent 0f9a935a5a
commit 522aaf53bf
8 changed files with 8 additions and 8 deletions
--- a/lapack-netlib/SRC/clartg.f
+++ b/lapack-netlib/SRC/clartg.f
@@ -161,7 +161,7 @@
         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.OR.SISNAN( ABS( G ) ) ) THEN