diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-08-03 21:53:24 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-08-03 21:53:24 +0000 |
commit | 3bb45d1e8baa5bec251de52569cc21df86809976 (patch) | |
tree | 6e8b889fe19bbfee2a2be93ea1730190daf53efe /tests/webtbf | |
parent | 64a9297c9424d944596612cae3bdfa1158b6b691 (diff) | |
download | fpc-3bb45d1e8baa5bec251de52569cc21df86809976.tar.gz |
* added test for Mantis #36014 which is already fixed (also in 3.2.0)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46219 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf')
-rw-r--r-- | tests/webtbf/tw36014.pp | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/webtbf/tw36014.pp b/tests/webtbf/tw36014.pp new file mode 100644 index 0000000000..c2118bca49 --- /dev/null +++ b/tests/webtbf/tw36014.pp @@ -0,0 +1,30 @@ +{ %FAIL } + +program tw36014; + +{$mode objfpc} + +type + + { TTest } + + TTest = class + public + procedure Test; + end; +var + T: TTest; + +{ TTest } + +procedure TTest.Test; +begin + +end; + +begin + T := TTest.Create; + T.specialize Test<T>; + T.Free; +end. + |