diff --git a/SRC/cgecxx.f b/SRC/cgecxx.f
index 7bda3deda..70b300351 100644
--- a/SRC/cgecxx.f
+++ b/SRC/cgecxx.f
@@ -1627,7 +1627,7 @@ SUBROUTINE CGECXX( FACT, USESD, M, N,
 *
       IF( MIN( MRESID, NRESID ).NE.0 ) THEN
          FNRMK = CLANGE( 'F',  MRESID, NRESID, A( K+1, K+1 ),
-     $                   LDA, WORK )
+     $                   LDA, RWORK )
       ELSE
          FNRMK = ZERO
       END IF
diff --git a/SRC/zgecxx.f b/SRC/zgecxx.f
index 851c5020d..f764676c3 100644
--- a/SRC/zgecxx.f
+++ b/SRC/zgecxx.f
@@ -1629,7 +1629,7 @@ SUBROUTINE ZGECXX( FACT, USESD, M, N,
 *
       IF( MIN( MRESID, NRESID ).NE.0 ) THEN
          FNRMK = ZLANGE( 'F',  MRESID, NRESID, A( K+1, K+1 ),
-     $                   LDA, WORK )
+     $                   LDA, RWORK )
       ELSE
          FNRMK = ZERO
       END IF