Commit c14d599

authored

linalg: slightly increase test tolerance (#985)

2 parents d8fd7b2 + 3532235 commit c14d599Copy full SHA for c14d599

File tree

1 file changed

-5

lines changed

test/linalg
- test_linalg_pseudoinverse.fypp

1 file changed

-5

lines changed

`‎test/linalg/test_linalg_pseudoinverse.fypp`

Lines changed: 5 additions & 5 deletions

Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,7 @@ module test_linalg_pseudoinverse`
`41`	`41`
`42`	`42`	`integer(ilp) :: i,j`
`43`	`43`	`integer(ilp), parameter :: n = 15_ilp`
`44`		`- real(${rk}$), parameter :: tol = 100*sqrt(epsilon(0.0_${rk}$))`
	`44`	`+ real(${rk}$), parameter :: tol = 1000*sqrt(epsilon(0.0_${rk}$))`
`45`	`45`
`46`	`46`	`${rt}$ :: a(n,n),inva(n,n)`
`47`	`47`
`@@ -85,7 +85,7 @@ module test_linalg_pseudoinverse`
`85`	`85`
`86`	`86`	`integer(ilp) :: failed`
`87`	`87`	`integer(ilp), parameter :: n = 10`
`88`		`- real(${rk}$), parameter :: tol = 100*sqrt(epsilon(0.0_${rk}$))`
	`88`	`+ real(${rk}$), parameter :: tol = 1000*sqrt(epsilon(0.0_${rk}$))`
`89`	`89`	`${rt}$ :: a(n, n), inva(n, n)`
`90`	`90`	`#:if rt.startswith('complex')`
`91`	`91`	`real(${rk}$) :: rea(n, n, 2)`
`@@ -119,7 +119,7 @@ module test_linalg_pseudoinverse`
`119`	`119`
`120`	`120`	`integer(ilp) :: failed`
`121`	`121`	`integer(ilp), parameter :: m = 20, n = 10`
`122`		`- real(${rk}$), parameter :: tol = 100*sqrt(epsilon(0.0_${rk}$))`
	`122`	`+ real(${rk}$), parameter :: tol = 1000*sqrt(epsilon(0.0_${rk}$))`
`123`	`123`	`${rt}$ :: a(m, n), inva(n, m)`
`124`	`124`	`#:if rt.startswith('complex')`
`125`	`125`	`real(${rk}$) :: rea(m, n, 2)`
`@@ -153,7 +153,7 @@ module test_linalg_pseudoinverse`
`153`	`153`
`154`	`154`	`integer(ilp) :: failed`
`155`	`155`	`integer(ilp), parameter :: m = 10, n = 20`
`156`		`- real(${rk}$), parameter :: tol = 100*sqrt(epsilon(0.0_${rk}$))`
	`156`	`+ real(${rk}$), parameter :: tol = 1000*sqrt(epsilon(0.0_${rk}$))`
`157`	`157`	`${rt}$ :: a(m, n), inva(n, m)`
`158`	`158`	`#:if rt.startswith('complex')`
`159`	`159`	`real(${rk}$) :: rea(m, n, 2)`
`@@ -187,7 +187,7 @@ module test_linalg_pseudoinverse`
`187`	`187`
`188`	`188`	`integer(ilp) :: failed`
`189`	`189`	`integer(ilp), parameter :: n = 10`
`190`		`- real(${rk}$), parameter :: tol = 100*sqrt(epsilon(0.0_${rk}$))`
	`190`	`+ real(${rk}$), parameter :: tol = 1000*sqrt(epsilon(0.0_${rk}$))`
`191`	`191`	`${rt}$ :: a(n, n), inva(n, n)`
`192`	`192`	`#:if rt.startswith('complex')`
`193`	`193`	`real(${rk}$) :: rea(n, n, 2)`

0 commit comments

Comments

(0)

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit c14d599

File tree

1 file changed

1 file changed

`‎test/linalg/test_linalg_pseudoinverse.fypp`

0 commit comments