From beb594020238e47952103ea79dcdb8387b715365 Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Thu, 9 May 2024 11:54:00 +0200 Subject: [PATCH] relax lstsq tol --- test/linalg/test_linalg_lstsq.fypp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/linalg/test_linalg_lstsq.fypp b/test/linalg/test_linalg_lstsq.fypp index 29cd07519..876f3f1e2 100644 --- a/test/linalg/test_linalg_lstsq.fypp +++ b/test/linalg/test_linalg_lstsq.fypp @@ -56,7 +56,7 @@ module test_linalg_least_squares call check(error,state%ok(),state%print()) if (allocated(error)) return - call check(error, all(abs(p-ab)<1.0e-6_${rk}$), 'data converged') + call check(error, all(abs(p-ab)<1.0e-4_${rk}$), 'data converged') if (allocated(error)) return call check(error, rank==2, 'matrix rank == 2') @@ -85,7 +85,7 @@ module test_linalg_least_squares call check(error,state%ok(),state%print()) if (allocated(error)) return - call check(error, all(abs(x-xsol)<1.0e-6_${rk}$), 'data converged') + call check(error, all(abs(x-xsol)<1.0e-4_${rk}$), 'data converged') if (allocated(error)) return end subroutine test_lstsq_random_${ri}$