From bde5b902aa01e9872c277c4664c8b67d3d3456ba Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Tue, 30 Jul 2024 13:57:18 +0200
Subject: [PATCH] Update dscal.c

---
 kernel/zarch/dscal.c | 1 +
 1 file changed, 1 insertion(+)

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 {