From cfc42059a7ca2fe520a1214bc8f6a690b46b18d8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 16 May 2004 15:03:02 +0000
Subject: [PATCH] no message

---
 tests/webtbs/tw3023.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/webtbs/tw3023.pp b/tests/webtbs/tw3023.pp
index 40d8583e37..42423def47 100644
--- a/tests/webtbs/tw3023.pp
+++ b/tests/webtbs/tw3023.pp
@@ -9,8 +9,8 @@ Var
   A : Array of Integer;
 
 begin
-// Commented version does work.
-//  If (Length(A)=0) then
   If Not Assigned(A) then
-    Writeln('All OK');
+    halt(0)
+  else
+    halt(1);
 end.
\ No newline at end of file