From 5a37581b299ca737e750a1908f93d8102fc5a66a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 29 May 2004 15:20:02 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/test/trtti3.pp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/tests/test/trtti3.pp b/tests/test/trtti3.pp
index f4d546ded3..510490cf86 100644
--- a/tests/test/trtti3.pp
+++ b/tests/test/trtti3.pp
@@ -12,12 +12,18 @@ begin
    a:=c1+c2;
    finalize(a);
    if length(a)<>0 then
-     halt(1);
+     begin
+       writeln('length of a: ',length(a),' instead of 0');
+       halt(1);
+     end;
    for i:=1 to 10 do
      aa[i]:=c1+c2;
    finalize(aa[1],10);
    for i:=1 to 10 do
      if length(aa[i])<>0 then
-       halt(1);
+       begin
+         writeln('error at element: ',i,' contents: ''',aa[i],'''  instead of ''''');
+         halt(1);
+       end;
 end.