fpcsrc/tests/webtbf/tw4554d.pp


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

{ %fail }
{ %opt=-vw -Sew }

procedure rrr;
var zar: array[0..1] of integer;
begin
  zar:=zar;
end;

BEGIN
  rrr ;
END.