From fff4cf3b05aa0a2f16446e3c70c2ba885e60a107 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 9 Sep 2002 19:42:39 +0000
Subject: [PATCH]   * fix typo's

---
 tests/tbs/tb0398.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/tbs/tb0398.pp b/tests/tbs/tb0398.pp
index 55edb72e18..39d879aa18 100644
--- a/tests/tbs/tb0398.pp
+++ b/tests/tbs/tb0398.pp
@@ -3,11 +3,11 @@
 begin
    if ord(widechar(#196))<>9472 then
      halt(1);
-   if ord(#0196))<>196 then
+   if ord(#0196)<>196 then
      halt(1);
    if ord(widechar(#$a6))<>170 then
      halt(1);
-   if ord(#$0a6))<>166 then
+   if ord(#$0a6)<>166 then
      halt(1);
    halt(0);
 end.