diff --git a/cudablas/compute/cuda_zttmqr.c b/cudablas/compute/cuda_zttmqr.c
index 107c7dec38f6a8ee2c72d26b3670d8bfd2780a50..04f59bf8140801312f635e3d801efd4ff23cbcaf 100644
--- a/cudablas/compute/cuda_zttmqr.c
+++ b/cudablas/compute/cuda_zttmqr.c
@@ -38,7 +38,7 @@ int CUDA_zttmqr(
               cuDoubleComplex *WORKC, int LDWORKC,
         CUBLAS_STREAM_PARAM)
 {
-    int i, i1, i3;
+    int i, i1, i3, l;
     int NQ, NW;
     int kb;
     int ic = 0;