From e27a8d871fe73108bbf9414fa7a774068910860b Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 28 Nov 2004 21:32:28 +0000
Subject: [PATCH]   * fixed test

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

diff --git a/tests/tbs/tb0226.pp b/tests/tbs/tb0226.pp
index 8afbd603e6..c0b1852a30 100644
--- a/tests/tbs/tb0226.pp
+++ b/tests/tbs/tb0226.pp
@@ -16,7 +16,7 @@ type
 
 constructor a.create;
 begin
-    c := @e;
+    c := e;
 end;
 
 destructor a.destroy;
@@ -26,13 +26,13 @@ end;
 procedure a.e;
 begin
     Writeln('E');
-    c := @f;
+    c := f;
 end;
 
 procedure a.f;
 begin
     Writeln('F');
-    c := @e;
+    c := e;
 end;
 
 var