Detect NaN in +/@:*"1!.1

jsoftware · Nov 3, 2024 · 12f7251 · 12f7251
1 parent 99281cc
commit 12f7251
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/jsrc/va2.c b/jsrc/va2.c
@@ -1189,7 +1189,7 @@ DF2(jtsumattymes1){
    }
   }
  #endif
-  if(unlikely(NANTEST)){ASSERT(fit=1,EVNAN) RETF(jtsumattymes1(jt,a,w,FAV(self)->fgh[0]))}  // !.1 cannot recover from NaN (which can come from infinities).  Revert !.0 to uncompensated case
+  if(unlikely(NANTEST)){ASSERT(fit==1,EVNAN) RETF(jtsumattymes1(jt,a,w,FAV(self)->fgh[0]))}  // !.1 cannot recover from NaN (which can come from infinities).  Revert !.0 to uncompensated case
  } 
  RETF(z);
 }

diff --git a/test/g520.ijs b/test/g520.ijs
@@ -732,6 +732,7 @@ f =: 1:`({{
 
 f i. 65
 
+'NaN error' -: _ _ _ +/@:*"1!.1 etx (0 0 0)
 
 
 NB. {y ------------------------------------------------------------------
-Original file line number
+Diff line change
@@ Expand Up / @@ -1189,7 +1189,7 @@ DF2(jtsumattymes1){ @@
        }
       }
      #endif
-      if(unlikely(NANTEST)){ASSERT(fit=1,EVNAN) RETF(jtsumattymes1(jt,a,w,FAV(self)->fgh[0]))}  // !.1 cannot recover from NaN (which can come from infinities).  Revert !.0 to uncompensated case
+      if(unlikely(NANTEST)){ASSERT(fit==1,EVNAN) RETF(jtsumattymes1(jt,a,w,FAV(self)->fgh[0]))}  // !.1 cannot recover from NaN (which can come from infinities).  Revert !.0 to uncompensated case
      }
      RETF(z);
     }
@@ Expand Down @@
Original file line number	Diff line number	Diff line change
Expand Up		@@ -732,6 +732,7 @@ f =: 1:`({{

		f i. 65

		'NaN error' -: _ _ _ +/@:*"1!.1 etx (0 0 0)


		NB. {y ------------------------------------------------------------------
Expand Down