tests/test/tgenconst25.pp


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

{ %FAIL }

unit tgenconst25;

{$mode objfpc}

interface

implementation

generic procedure Test<A; const N: LongInt>; forward;

generic procedure Test<A; N>;
begin
end;

end.