From 5e7d042028d2f5cbb6e65419a7db0f67640150fe Mon Sep 17 00:00:00 2001
From: Alexander Regueiro <alexreg@gmail.com>
Date: Mon, 13 May 2024 17:00:18 +0100
Subject: [PATCH] Use `isfinite` function for ARM compatibility

---
 src/admutils.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/admutils.c b/src/admutils.c
index cad0284..519e661 100755
--- a/src/admutils.c
+++ b/src/admutils.c
@@ -456,7 +456,7 @@ testnan(double *a, int n)
   int i ;
 
   for (i=0; i<n; i++) {
-   if (!finite(a[i])) fatalx("(testnan) fails:  index %d\n",i) ;
+   if (!isfinite(a[i])) fatalx("(testnan) fails:  index %d\n",i) ;
   }
 }
 void getgall(SNP *cupt, int *x, int n)