tests/test/umaclocalprocparam3f.pp


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

{$modeswitch nestedprocvars}

unit umaclocalprocparam3f;

interface

type
  tnestedprocvar = procedure is nested;
  tnestedprocvar2 = procedure(pp: tnestedprocvar) is nested;

implementation

end.