Testing/Semantic/t1-2a.p


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

(* LEGAL: local names should hide non-local names *)
program main( input, output );
  var a,b: integer;
  procedure boo(a: integer);
    var b: real;
  begin
    b := 1.23 
  end;
begin
  boo(b)
end.