diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 23:11:09 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 23:11:09 +0000 |
commit | a491c935588745154b576226b73833bac78fcb6e (patch) | |
tree | 973289073fb5d21573a6be2b5cfeba9abd2a9472 /tests/webtbf | |
parent | 38b5e0606069cc5985e995e1da5b6855db67f507 (diff) | |
parent | ae5b0de491a91321675f73eae5db628d068f4e05 (diff) | |
download | fpc-a491c935588745154b576226b73833bac78fcb6e.tar.gz |
* synchronized with trunkunicodekvm
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/unicodekvm@49282 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf')
-rw-r--r-- | tests/webtbf/tw38771.pp | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/webtbf/tw38771.pp b/tests/webtbf/tw38771.pp new file mode 100644 index 0000000000..1d041847a2 --- /dev/null +++ b/tests/webtbf/tw38771.pp @@ -0,0 +1,22 @@ +{ %FAIL } +{$mode objfpc} + +program tw38771; + +type + TMyClass = class + generic procedure DoThis<T>(msg: T); + generic procedure DoThat<T>(msg: T); virtual; + end; + +generic procedure TMyClass.DoThis<T>(msg:T); +begin + specialize DoThat<T>(msg); +end; + +generic procedure TMyClass.DoThat<T>(msg: T); +begin +end; + +begin +end. |