* new bug

2025-04-19 20:19:25 +02:00 · 2003-10-30 17:43:33 +00:00 · 2003-10-30 17:43:33 +00:00 · 738dd0f3e0
commit 738dd0f3e0
parent e7ae580469
1 changed files with 27 additions and 0 deletions
--- a/tests/webtbs/tw2752.pp
+++ b/tests/webtbs/tw2752.pp
@ -0,0 +1,27 @@
+{ %opt=-Sew }
+
+{ Source provided for Free Pascal Bug Report 2752 }
+{ Submitted by "Micha" on  2003-10-26 }
+{ e-mail:  }
+program Construct;
+
+{$mode delphi}
+
+type
+
+  tb = class
+  public
+    constructor Create(a: tobject);
+  end;
+
+constructor tb.create(a: tobject);
+begin
+end;
+
+var
+  b,c: tb;
+
+begin
+  b := tb.create(b);
+end.
+