diff --git a/.gitattributes b/.gitattributes index 68e3e51b62..4a3140dc85 100644 --- a/.gitattributes +++ b/.gitattributes @@ -5710,6 +5710,7 @@ tests/test/trange2.pp svneol=native#text/plain tests/test/trange3.pp svneol=native#text/plain tests/test/trange4.pp svneol=native#text/plain tests/test/trange5.pp svneol=native#text/plain +tests/test/trangeob.pp svneol=native#text/plain tests/test/tresstr.pp svneol=native#text/plain tests/test/trtti1.pp svneol=native#text/plain tests/test/trtti2.pp svneol=native#text/plain diff --git a/tests/test/trangeob.pp b/tests/test/trangeob.pp new file mode 100644 index 0000000000..f931fc2bf4 --- /dev/null +++ b/tests/test/trangeob.pp @@ -0,0 +1,19 @@ +{ %opt=-CR -S2 } + +type + tc1 = class + end; + + tc2 = class(tc1) + end; + +procedure t(var c: tc2); +begin +end; + +var + c: tc1; +begin + c := tc2.create; + t(tc2(c)); +end.