* disallow new(property) (mantis #13992)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13288 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 39 insertions, 0 deletions

diff --git a/tests/webtbf/tw13992.pp b/tests/webtbf/tw13992.pp
new file mode 100644
index 0000000000..f7f40aa677
--- /dev/null
+++ b/tests/webtbf/tw13992.pp
@@ -0,0 +1,39 @@
+{ %fail }
+
+{ new(property) should fail }
+
+program test_prop;
+
+{$mode delphi}
+
+type
+  TMyRec = record
+    s: string;
+  end;
+  PMyRec = ^TMyRec;
+
+  TSomeClass = class
+  private
+    FMyRec: PMyRec;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    property MyRec: PMyRec read FMyRec write FMyRec;
+  end;
+
+{ TSomeClass }
+
+constructor TSomeClass.Create;
+begin
+  New(MyRec);
+end;
+
+destructor TSomeClass.Destroy;
+begin
+//  Dispose(MyRec);
+  inherited;
+end;
+
+begin
+end.
+