Skip to content

Commit c6076ea

Browse files
committed
relax error thresholds
1 parent e80b508 commit c6076ea

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

test/linalg/test_linalg_determinant.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -56,7 +56,7 @@ module test_linalg_determinant
5656
call check(error,state%ok(),state%print())
5757
if (allocated(error)) return
5858

59-
call check(error, abs(deta-1.0_${rk}$)<tiny(0.0_${rk}$), 'det(eye(n))==1')
59+
call check(error, abs(deta-1.0_${rk}$)<epsilon(0.0_${rk}$), 'det(eye(n))==1')
6060

6161
end subroutine test_${rt[0]}$${rk}$_eye_determinant
6262

@@ -126,7 +126,7 @@ module test_linalg_determinant
126126
call check(error,state%ok(),state%print())
127127
if (allocated(error)) return
128128

129-
call check(error, all(abs(res-deta)<=tiny(0.0_${ck}$)), &
129+
call check(error, all(abs(res-deta)<=epsilon(0.0_${ck}$)), &
130130
'det((1+i)*eye(n)) does not match result')
131131

132132
end subroutine test_${ct[0]}$${ck}$_complex_determinant

0 commit comments

Comments
 (0)