Merge pull request #1264 from AymenQ/fix-complex-nrm2-inf-test

langou · web-flow · commit 54b6620d277c · 2026-06-11T04:15:19.000-06:00
Fix complex NRM2 tests for matching infinite results
diff --git a/BLAS/TESTING/cblat1.f b/BLAS/TESTING/cblat1.f
@@ -1033,6 +1033,8 @@ SUBROUTINE CB1NRM2(N,INCX,THRESH)
                ELSE
                   TRAT = ZERO
                END IF
+            ELSE IF (SNRM == ZNRM) THEN
+               TRAT = ZERO
             ELSE IF (ZNRM == ZERO) THEN
                TRAT = SNRM / ULP
             ELSE
diff --git a/BLAS/TESTING/zblat1.f b/BLAS/TESTING/zblat1.f
@@ -1033,6 +1033,8 @@ SUBROUTINE ZB1NRM2(N,INCX,THRESH)
                ELSE
                   TRAT = ZERO
                END IF
+            ELSE IF (SNRM == ZNRM) THEN
+               TRAT = ZERO
             ELSE IF (ZNRM == ZERO) THEN
                TRAT = SNRM / ULP
             ELSE
