{ %FAIL }

unit tgenconst27;

{$mode objfpc}

interface

generic procedure Test<const A: LongInt>;

implementation

generic procedure Test<const A: LongInt>;
begin
end;

end.