mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
13 lines
188 B
ObjectPascal
13 lines
188 B
ObjectPascal
{ %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.
|