Testing/Semantic/t1-3.p


1
2
3
4
5
6
7
8
9
10
11

(* LEGAL: non-local names visible from inner scopes *)
program main( input, output );
  var a: integer;
  procedure boo(x: integer);
  begin
    a := x
  end;
begin
  boo(a)
end.