diff --git a/.gitattributes b/.gitattributes index a4ab9768be..97fc16b08e 100644 --- a/.gitattributes +++ b/.gitattributes @@ -13771,6 +13771,7 @@ tests/webtbs/tw2242.pp svneol=native#text/plain tests/webtbs/tw22427.pp svneol=native#text/pascal tests/webtbs/tw22428.pp svneol=native#text/pascal tests/webtbs/tw22433.pp svneol=native#text/pascal +tests/webtbs/tw22468.pp svneol=native#text/pascal tests/webtbs/tw22490.pp svneol=native#text/plain tests/webtbs/tw2250.pp svneol=native#text/plain tests/webtbs/tw22502.pp svneol=native#text/plain diff --git a/tests/webtbs/tw22468.pp b/tests/webtbs/tw22468.pp new file mode 100644 index 0000000000..21207e84d9 --- /dev/null +++ b/tests/webtbs/tw22468.pp @@ -0,0 +1,31 @@ +{ %NORUN } + +program tw22468; + +{$MODE DELPHI} + +type + TArray = array of T; + + TWrapper = record + private + type TValueArray = TArray; + public + class procedure Z; static; + end; + + +{$PUSH}{$MACRO ON} +{$DEFINE TWrapper__Z := + var + a: TValueArray; + begin + end +} + +class procedure TWrapper.Z; +TWrapper__Z; +{$POP} + +begin +end.