tests/test/tthlp10.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %FAIL }

{ this tests that procedure variables (among others) can not be extended }

program tthlp10;

{$mode objfpc}
{$modeswitch typehelpers}

type
  TProcedure = procedure;

  TProcedureHelper = type helper for TProcedure

  end;

begin

end.