From cd8e5f68527790c095dfeb09b7b61d8133b0f9d2 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 18 Dec 2004 15:20:42 +0000
Subject: [PATCH] no message

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

diff --git a/tests/tbs/tb0326.pp b/tests/tbs/tb0326.pp
index a12f135f39..548fa8603b 100644
--- a/tests/tbs/tb0326.pp
+++ b/tests/tbs/tb0326.pp
@@ -11,5 +11,8 @@ begin
   d1:=c1/c2;
   d2:=i1/i2;
   if d1<>d2 then
-    halt(1);
+    begin
+      writeln('error');
+      halt(1);
+    end;
 end.