Skip to content

Commit 15eee77

Browse files
committed
Merge branch 'dev-quadrature' of https://github.com/nshaffer/stdlib into dev-quadrature
2 parents 031ecf7 + 688c81a commit 15eee77

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/tests/quadrature/test_simps.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5,9 +5,9 @@ program test_simps
55

66
implicit none
77

8-
real(sp) :: tol_sp = epsilon(1.0_sp)
9-
real(dp) :: tol_dp = epsilon(1.0_dp)
10-
real(qp) :: tol_qp = epsilon(1.0_sp)
8+
real(sp), parameter :: tol_sp = 1000 * epsilon(1.0_sp)
9+
real(dp), parameter :: tol_dp = 1000 * epsilon(1.0_dp)
10+
real(qp), parameter :: tol_qp = 1000 *epsilon(1.0_sp)
1111

1212
call test_simps_sp
1313
call test_simps_dp

0 commit comments

Comments
 (0)