fpcsrc/tests/test/tconstref2.pp


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

{ %fail }
program tConstRef2;

procedure TestConstRef(constref AParam: integer);
begin
  AParam := 5;
end;

begin
  TestConstRef(1);
end.