From 00d7da7aadfaf1442b03316510780542e64daee2 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 31 Oct 2002 15:31:39 +0000
Subject: [PATCH]  * m68k extended size is 12

---
 tests/tbs/tb0185.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/tbs/tb0185.pp b/tests/tbs/tb0185.pp
index 09a88ea986..1d4463cc86 100644
--- a/tests/tbs/tb0185.pp
+++ b/tests/tbs/tb0185.pp
@@ -26,7 +26,9 @@ Begin
   str(r,s);
   val(s,rr,code);
   { calculate maximum possible precision }
-  if sizeof(extended) = 10 then
+  if sizeof(extended) = 12 then
+    error := exp(17*ln(10))
+  else if sizeof(extended) = 10 then
     error := exp(17*ln(10))
   else if sizeof(extended) = 8 then
     error := exp(14*ln(10))