fpcsrc/tests/webtbf/tw9015.pp


1
2
3
4
5
6
7
8
9

{ %fail }
procedure p1(const b;l:longint);
begin
end;

begin
  // Expected error: variable required
  p1(1,sizeof(1));
end.