From 32581d349c3a6030e9f8397b60efc7d42c7d6759 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 28 Mar 2000 21:15:45 +0000
Subject: [PATCH]  better check

---
 tests/webtbs/tbug891.pp | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

diff --git a/tests/webtbs/tbug891.pp b/tests/webtbs/tbug891.pp
index 3a98225f03..6c2bb4883c 100644
--- a/tests/webtbs/tbug891.pp
+++ b/tests/webtbs/tbug891.pp
@@ -1,22 +1,36 @@
 { this declaration: ;}
-{$mode TP}
+{$ifdef FPC}
+  {$mode TP}
+{$endif}
  var
    name_a : packed array[0..255] of char;
 
 const
-   name_b : PChar = 'test';
+   name_b : PChar = 't';
 
 begin
    { the FPC compiler (0.99.14a) will refuse to compile
     the line ; }
-
+    name_a[0]:='x';
+    name_a[1]:=#0;
     if (name_b <> name_a) then
-      writeln(' a and b are different');
+      begin
+        writeln(' a and b are different');
+      end
+    else
+      writeln('address of name_a and name_b are equal');
     { while it works under Turbo Pascal (TP). ;}
+    name_b:=@name_a;
+    if name_a<>name_b then
+      begin
+        Writeln('Wrong result');
+        Halt(1);
+      end;
+{$ifdef FPC}
      if (name_b <> PChar(name_a)) then
       writeln(' a and b are different');
     { is a legal FPC line, but illegal in TP.}
-
+{$endif}
     { I used ; }
     if (name_b <> PChar(@name_a)) then
       writeln(' a and b are different');