Testing/Semantic/t1-4.p


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

(* LEGAL: scope of the name of subprograms *)
program main( input, output );
  procedure boo;
    procedure foo;
    begin
    end;
  begin
    foo
  end;
begin
  boo
end.