{ %FAIL }

unit tgenconst28;

{$mode delphi}

interface

procedure Test<const A: LongInt>;

implementation

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

end.