freepascal.compiler/tests/webtbf/tw9015.pp

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

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