diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/webtbf/tw36397.pp | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/webtbf/tw36397.pp b/tests/webtbf/tw36397.pp new file mode 100644 index 0000000000..bc4d4ad5ce --- /dev/null +++ b/tests/webtbf/tw36397.pp @@ -0,0 +1,20 @@ +{ %fail }
+program Project1;
+
+{$mode delphi}
+
+type
+ TTest = object
+ class procedure myproc;
+ end;
+
+ class procedure TTest.myproc;
+ begin
+ end;
+
+var
+ p: procedure;
+begin
+ p := TTest.myproc;
+end.
+
|