fpc/tests/webtbs/uw22427b.pp
svenbarth 03493a4d31 Added tests for now fixed Mantis #22427.
git-svn-id: trunk@22453 -
2012-09-25 10:10:28 +00:00

29 lines
295 B
ObjectPascal

unit uw22427b;
{$MODE DELPHI}
interface
type
TWrapper<T> = record
class procedure Test; static;
end;
implementation
uses uw22427a;
{$PUSH}{$MACRO ON}
{$DEFINE TWrapper__Test :=
begin
Writeln(SMessage);
end
}
class procedure TWrapper<T>.Test;
TWrapper__Test;
{$POP}
end.