Follow-up to c1fba5b8

f3ab7cb6 · ulrich_y · c1fba5b8 · f3ab7cb6 · f3ab7cb6
Commit f3ab7cb6 authored Aug 20, 2019 by ulrich_y
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

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

src/test.f90 src/test.f90 +2 -2

No files found.
--- a/checks/generate.m
+++ b/checks/generate.m
@@ -57,7 +57,6 @@ SetRoutine[gs_,name_,vars_]:=StringRiffle[Join[{
          <>ToString@N@Re[(-1)^(1/3)]<>","<>ToString@N[Im[(-1)^(1/3)],10]<>")",
    "  complex(kind=prec), parameter :: degm60 = ("
          <>ToString@N@Re[-(-1)^(2/3)]<>","<>ToString@N[Im[-(-1)^(2/3)],10]<>")",
-    "  complex(kind=prec) d_qnan",
    "  complex(kind=prec) :: "<>StringRiffle[vars,","],
    "  complex(kind=prec) :: args("<>ToString@Length[gs]<>","<>ToString@Max[Length/@gs]<>")",
    "  args = 1.e15",

--- a/src/test.f90
+++ b/src/test.f90
@@ -386,8 +386,8 @@ CONTAINS
      pargs(:,:,i) = inimuone(cmplx(x), cmplx(y))
    enddo

-    cargs(1181,:,:)=cargs(1181,:,:)/0
-    fargs(367,:,:)=fargs(367,:,:)/0
+    cargs(1181,:,:)=1.e15
+    fargs(367,:,:)=1.e15


    open(unit=9, file="stats.txt")