diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f
index e33b21437..2fcc12124 100644
--- a/TESTING/LIN/ddrvab.f
+++ b/TESTING/LIN/ddrvab.f
@@ -264,10 +264,10 @@
 *
 *              If iterative refinement has been used and claimed to 
 *              be successful (ITER>0), we want
-*                NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1
+*                NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1
 *
 *              If double precision has been used (ITER<0), we want
-*                NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS) < THRES
+*                NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS) < THRES
 *              (Cf. the linear solver testing routines)
 *
                IF ((THRESH.LE.0.0E+00)
diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f
index 07c318087..bafbd564b 100644
--- a/TESTING/LIN/zdrvab.f
+++ b/TESTING/LIN/zdrvab.f
@@ -265,10 +265,10 @@
 *
 *              If iterative refinement has been used and claimed to 
 *              be successful (ITER>0), we want
-*                NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1
+*                NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1
 *
 *              If double precision has been used (ITER<0), we want
-*                NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS) < THRES
+*                NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS) < THRES
 *              (Cf. the linear solver testing routines)
 *
                IF ((THRESH.LE.0.0E+00)