mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
5ffba57b51
Also adjusted test for report 20836 (removed unneeded units and the {$R ...} directive completely and added a "%NORUN" modifier).
git-svn-id: trunk@19817 -
13 lines
216 B
ObjectPascal
13 lines
216 B
ObjectPascal
{ %NORUN }
|
|
|
|
{$MODE delphi}
|
|
|
|
type
|
|
TWrapper<TValue> = class end;
|
|
TObjectWrapper = TWrapper<TObject>;
|
|
|
|
begin
|
|
with TObjectWrapper.Create do Free; { OK }
|
|
with TWrapper<TObject>.Create do Free; { Error }
|
|
end.
|