diff --git a/.gitattributes b/.gitattributes index 0c6e136f43..6f212c9186 100644 --- a/.gitattributes +++ b/.gitattributes @@ -16519,6 +16519,7 @@ tests/webtbf/tw3583.pp svneol=native#text/plain tests/webtbf/tw35866.pp svneol=native#text/pascal tests/webtbf/tw35909.pp svneol=native#text/pascal tests/webtbf/tw35981.pp svneol=native#text/pascal +tests/webtbf/tw36014.pp svneol=native#text/pascal tests/webtbf/tw36114.pp svneol=native#text/pascal tests/webtbf/tw36223.pp svneol=native#text/pascal tests/webtbf/tw3626.pp svneol=native#text/plain 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.Free; +end. +