Merge pull request #2442 from martin-frbg/lapackpr390

Apply fix from Reference-LAPACK PR 390

Author: martin-frbg

lapack-netlib/SRC/dcombssq.f

@@ -80,6 +80,8 @@ SUBROUTINE DCOMBSSQ( V1, V2 )
       IF( V1( 1 ).GE.V2( 1 ) ) THEN
          IF( V1( 1 ).NE.ZERO ) THEN
             V1( 2 ) = V1( 2 ) + ( V2( 1 ) / V1( 1 ) )**2 * V2( 2 )
+         ELSE
+            V1( 2 ) = V1( 2 ) + V2( 2 )   
          END IF
       ELSE
          V1( 2 ) = V2( 2 ) + ( V1( 1 ) / V2( 1 ) )**2 * V1( 2 )

lapack-netlib/SRC/scombssq.f

@@ -80,6 +80,8 @@ SUBROUTINE SCOMBSSQ( V1, V2 )
       IF( V1( 1 ).GE.V2( 1 ) ) THEN
          IF( V1( 1 ).NE.ZERO ) THEN
             V1( 2 ) = V1( 2 ) + ( V2( 1 ) / V1( 1 ) )**2 * V2( 2 )
+         ELSE
+            V1( 2 ) = V1( 2 ) + V2( 2 )
          END IF
       ELSE
          V1( 2 ) = V2( 2 ) + ( V1( 1 ) / V2( 1 ) )**2 * V1( 2 )