diff --git a/lapack-netlib/SRC/clanhf.f b/lapack-netlib/SRC/clanhf.f
index f7bd4fb55..cbcb7ecec 100644
--- a/lapack-netlib/SRC/clanhf.f
+++ b/lapack-netlib/SRC/clanhf.f
@@ -286,7 +286,7 @@
          CLANHF = ZERO
          RETURN
       ELSE IF( N.EQ.1 ) THEN
-         CLANHF = ABS( A(0) )
+         CLANHF = ABS(REAL(A(0)))
          RETURN
       END IF
 *
diff --git a/lapack-netlib/SRC/zlanhf.f b/lapack-netlib/SRC/zlanhf.f
index 8f781dd79..99b3f3c1e 100644
--- a/lapack-netlib/SRC/zlanhf.f
+++ b/lapack-netlib/SRC/zlanhf.f
@@ -286,7 +286,7 @@
          ZLANHF = ZERO
          RETURN
       ELSE IF( N.EQ.1 ) THEN
-         ZLANHF = ABS( A(0) )
+         ZLANHF = ABS(DBLE(A(0)))
          RETURN
       END IF
 *