Commit 8d03f863 authored by ulrich_y's avatar ulrich_y

slight improvements to long test

parent 9ff65bed
......@@ -41,6 +41,8 @@ PROGRAM TEST
print*, 'Some tests failed. '
stop 1
end if
stop
call do_long_test
CONTAINS
......@@ -670,10 +672,13 @@ CONTAINS
type(inum), parameter :: ione = inum((1._prec,0._prec), di0)
integer i, j, w, seed
integer(kind=1) i0
real(kind=prec) :: v
complex(kind=prec) :: ans(2), geval
real(kind=prec) :: v, maxd
complex(kind=prec) :: ans(2)
complex(kind=8) :: geval
maxd=0._prec
seed = 112312
tol = 0.01
basis(1:nzero) = izero
......@@ -701,9 +706,11 @@ CONTAINS
ans(1) = cmplx(geval([args(1:w),ione], w+1),kind=prec)
#endif
ans(2) = G(args(1:w),ione)
if(abs(ans(1)-ans(2)) > maxd) maxd = abs(ans(1)-ans(2))
if(abs(ans(1)-ans(2)) > tol) goto 123
enddo
enddo
print*,maxd
return
123 continue
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment