From cb8f28f93dc1feaa093f614bdfeeb3e018c5f2f4 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 17 Aug 2004 19:05:27 +0000
Subject: [PATCH]   + test for "@procvar_of_object <> nil" in delphi mode

---
 tests/tbs/tb0477.pp | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 tests/tbs/tb0477.pp

diff --git a/tests/tbs/tb0477.pp b/tests/tbs/tb0477.pp
new file mode 100644
index 0000000000..2ddc8f39e1
--- /dev/null
+++ b/tests/tbs/tb0477.pp
@@ -0,0 +1,39 @@
+{$mode delphi}
+
+type
+  TProc = procedure of object;
+
+  TTest = class
+  public
+    proc: TProc;
+    constructor Create;
+    procedure foo;
+    procedure bar;
+  end;
+
+constructor TTest.Create;
+begin
+  inherited;
+  proc := nil;
+end;
+
+procedure TTest.foo;
+begin
+  writeln('foo');
+end;
+
+procedure TTest.bar;
+begin
+  if @proc <> nil then proc;
+end;
+
+var
+  t: TTest;
+
+begin
+  t := TTest.Create;
+  t.proc := t.foo;
+  t.bar;
+  t.Free;
+end.
+