From 5ec3e6fd14549e13e20a7f49c3935fa732bf0535 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 6 Jan 2025 18:22:25 +0100
Subject: [PATCH]   * restore old error value

---
 tests/test/units/math/trandg.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/units/math/trandg.pp b/tests/test/units/math/trandg.pp
index 1fe6b7063f..b17bff062c 100644
--- a/tests/test/units/math/trandg.pp
+++ b/tests/test/units/math/trandg.pp
@@ -112,7 +112,7 @@ begin
 	end;
 	writeln('Out of range: ', nOutOfRange, ' / ', NSamples, ' (', nOutOfRange / nSamples * 100:0:1, '%).', LineEnding,
 		'Took ', time:0:1, ' s.', LineEnding);
-	if nOutOfRange / nSamples>0.0015 then
+	if nOutOfRange / nSamples>0.001 then
 	  halt(1);
 	if imperfections > {$ifdef SMALL_TEST} 40 {$else} 16 {$endif} then
 	  halt(1);