Merge pull request #809 from perazz/fix_lstsq_test

least squares: relax test tolerance

Author: jvdp1

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}$