Skip to content

Commit 9e377fe

Browse files
authored
Merge pull request #180 from p-costa/master
fixed precision of variable ans
2 parents bbecb52 + 2258160 commit 9e377fe

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/tests/quadrature/test_trapz.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,7 @@ subroutine test_trapz_dp
7777

7878
x = y**2
7979
val = trapz(y, x)
80-
ans = 2728.0_sp
80+
ans = 2728.0_dp
8181
call check(abs(val - ans) < epsilon(ans))
8282
end subroutine test_trapz_dp
8383

0 commit comments

Comments
 (0)