fpcsrc/tests/tbs/tb0436.pp


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

{$mode objfpc}

procedure pext(a:array of extended);
begin
end;

procedure p(a:array of const);
begin
end;

begin
  p([0.0]);
  p([pi]);
  pext([0.0]);
end.