Testing/Semantic/t1-1b.p


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(* ERROR: variable redeclared *)
program main( input, output );
  var a: integer;

  procedure boo;
  begin
  end;

  function boo(b:integer):integer;
  begin
	boo := 1
  end;

begin
end.