aboutsummaryrefslogtreecommitdiff
path: root/Testing/Semantic/t1-2a.p
blob: a81cad2b685c19d17ac95301eeca7b469807b7bd (plain)
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.