xref: /original-bsd/usr.bin/pascal/pdx/test/block.p (revision a5a45b47)
1(*
2 * Copyright (c) 1980 The Regents of the University of California.
3 * All rights reserved.
4 *
5 * %sccs.include.redist.c%
6 *
7 *	@(#)block.p	5.1 (Berkeley) 04/16/91
8 *)
9
10program blocktest(input, output);
11procedure A;
12	procedure B;
13	begin
14		writeln('in procedure B');
15	end;
16begin
17	writeln('in procedure A');
18	B;
19end;
20
21begin
22	writeln('in main program');
23	A;
24end.
25