blob: 62f2d949f575050baaffa4d34602c74baad27379 (
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.
|