fpcsrc/tests/test/tmsg4.pp


1
2
3
4
5
6
7
8
9
10

{ %opt=-vh -vm05024 -Seh }

procedure test(l: longint);
begin
  writeln('l is unused, but that hint has been suppressed');
end;

begin
  test(5);
end.