We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3611e59 commit 922ad3cCopy full SHA for 922ad3c
src/tests/stats/test_distribution_uniform.fypp
@@ -178,8 +178,8 @@ program test_distribution_uniform
178
call check(all(abs(res - ans) < ${k1}$tol), &
179
msg="uniform_distribution_rvs_${t1[0]}$${k1}$ failed", warn=warn)
180
#:else
181
- call check(all(abs(real(res) - real(ans)) < ${k1}$tol) .and. &
182
- all(abs(aimag(res) - aimag(ans)) < ${k1}$tol), &
+ call check(all(abs(res % re - ans % re) < ${k1}$tol) .and. &
+ all(abs(res % im -ans % im) < ${k1}$tol), &
183
184
#:endif
185
end subroutine test_uni_rvs_${t1[0]}$${k1}$
0 commit comments