Don't use nan for empty fields in test

7ad5f7a5 · ulrich_y · 495524e8 · 7ad5f7a5 · 7ad5f7a5
Commit 7ad5f7a5 authored Aug 19, 2019 by ulrich_y
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

checks/generate.m checks/generate.m +1 -3

src/test.f90 src/test.f90 +1 -1

No files found.
--- a/checks/generate.m
+++ b/checks/generate.m
@@ -60,9 +60,7 @@ SetRoutine[gs_,name_,vars_]:=StringRiffle[Join[{
    "  complex(kind=prec) d_qnan",
    "  complex(kind=prec) :: "<>StringRiffle[vars,","],
    "  complex(kind=prec) :: args("<>ToString@Length[gs]<>","<>ToString@Max[Length/@gs]<>")",
-    "  d_qnan = 0.",
-    "  d_qnan = d_qnan/0",
-    "  args = D_QNAN",
+    "  args = 1.e15",
    ""
    },SetBody[gs],{
    "  END FUNCTION",

--- a/src/test.f90
+++ b/src/test.f90
@@ -208,7 +208,7 @@ CONTAINS
    evalt =0.

    do i=1,size(arr)
-      if (arr(i) .ne. arr(i)) then ! isnan?
+      if (abs(arr(i)) .gt. 1.e10) then ! isnan?
        l = i-1
        goto 123
      endif