initial import

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

1 files changed, 32 insertions, 0 deletions

diff --git a/tests/webtbf/tw1483.pp b/tests/webtbf/tw1483.pp
new file mode 100644
index 0000000000..342df7636d
--- /dev/null
+++ b/tests/webtbf/tw1483.pp
@@ -0,0 +1,32 @@
+{ %fail }
+
+Type pBug=^tBug;
+     tBug=Object
+       Private
+        A:Longint;
+        Go:Procedure Of Object;
+        Procedure Go1;
+       Public
+        Constructor Init;
+     End;
+
+Constructor tBug.Init;
+Begin
+   A:=10;
+   Go:=Go1; { <-- It's wring, it should        }
+            {     be Go:=@Go1; but compiler    }
+            {     says it's ok, and the program}
+            {     even runs... }
+End;
+
+Procedure tBug.Go1;
+Begin
+   WriteLn(A);
+End;
+
+Var Bug:pBug;
+
+Begin
+   Bug:=New(pBug,Init);
+   Bug^.Go;
+End.