From 9e295985755b97fee6cc1e3d03e77d14ab6051b2 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 2 Jul 2022 23:47:17 +0200
Subject: [PATCH] workaround fault with ssq=inf,scale=0

---
 kernel/arm64/dznrm2_thunderx2t99.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/kernel/arm64/dznrm2_thunderx2t99.c b/kernel/arm64/dznrm2_thunderx2t99.c
index fba2fe8ce..e342b0b63 100644
--- a/kernel/arm64/dznrm2_thunderx2t99.c
+++ b/kernel/arm64/dznrm2_thunderx2t99.c
@@ -404,6 +404,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
 #else
 	nrm2_compute(n, x, inc_x, &ssq, &scale);
 #endif
+	if (fabs(scale) <1.e-300) return 0.;
 	ssq = sqrt(ssq) * scale;
 
 	return ssq;