Follow-up to c1fba5b8

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",

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")