Skip to content

Commit 922ad3c

Browse files
Update src/tests/stats/test_distribution_uniform.fypp
Co-authored-by: Jeremie Vandenplas <jeremie.vandenplas@gmail.com>
1 parent 3611e59 commit 922ad3c

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/tests/stats/test_distribution_uniform.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -178,8 +178,8 @@ program test_distribution_uniform
178178
call check(all(abs(res - ans) < ${k1}$tol), &
179179
msg="uniform_distribution_rvs_${t1[0]}$${k1}$ failed", warn=warn)
180180
#:else
181-
call check(all(abs(real(res) - real(ans)) < ${k1}$tol) .and. &
182-
all(abs(aimag(res) - aimag(ans)) < ${k1}$tol), &
181+
call check(all(abs(res % re - ans % re) < ${k1}$tol) .and. &
182+
all(abs(res % im -ans % im) < ${k1}$tol), &
183183
msg="uniform_distribution_rvs_${t1[0]}$${k1}$ failed", warn=warn)
184184
#:endif
185185
end subroutine test_uni_rvs_${t1[0]}$${k1}$

0 commit comments

Comments
 (0)