diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-12-05 20:46:50 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-12-05 20:46:50 +0000 |
commit | cfe57c0d3fbc03af12a987039a69915c5520c927 (patch) | |
tree | 54340d40fcb713bcbd69790c34349bb3a6198725 /tests/webtbf | |
parent | b1eb99ab71e4c1568a00656cdf71ec9231aaa8dd (diff) | |
download | fpc-cfe57c0d3fbc03af12a987039a69915c5520c927.tar.gz |
* better error recovery, resolves #36397
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43653 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf')
-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.
+
|