diff --git a/kernel/zarch/dscal.c b/kernel/zarch/dscal.c
index e5d35cbc9..0b3a415a9 100644
--- a/kernel/zarch/dscal.c
+++ b/kernel/zarch/dscal.c
@@ -115,6 +115,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x,
           x[i] = 0.0;
         else
           x[i] = NAN;
+        j++;
         }
       }
     } else {