diff --git a/test/utils.f b/test/utils.f index 83b8811..e1c5039 100644 --- a/test/utils.f +++ b/test/utils.f @@ -241,7 +241,7 @@ c external slamch common /stats/ passed,failed integer passed,failed - if (rnrm < 2e2*slamch('p')) then + if (rnrm < 3e2*slamch('p')) then spftol = 'PASS' passed = passed + 1 else