Testing/Semantic/t1-5.p


1
2
3
4
5
6
7
8
9
10
11

(* ERROR: local objects not defined outside their scopes *)
program main( input, output );
  var a: integer;
  procedure boo(a: integer);
    var x: integer;
  begin
  end;
begin
  a := x
end.