Testing/Semantic/t5-4.p


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

(* ERROR: function updating non-local variable *)
program main( input, output );
  var a: integer;

  function foo(b: integer): integer;
  begin
    foo := a;
    a := b
  end;

begin

end.