tests/test/tdefault13.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %FAIL }

{ helper types can not be used with default }
program tdefault13;

{$mode objfpc}

type
  TTestHelper = class helper for TObject
  end;

begin
  Default(TTestHelper);
end.