tests/webtbf/tw4554a.pp


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

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

procedure rrr;    
var arr, nar: array[0..1] of integer;
begin
  arr:=nar; 
end; { my NEVER = no warning, regardless if in a proc or not }

BEGIN
  rrr ;
END.