date and time created 91/04/16 14:58:46 by bostic

SCCS-vsn: usr.bin/pascal/pdx/test/block.p 5.1

diff --git a/usr/src/usr.bin/pascal/pdx/test/block.p b/usr/src/usr.bin/pascal/pdx/test/block.p
new file mode 100644 (file)
index 0000000..4cc009f
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/test/block.p
@@ -0,0 +1,24 @@
+(*
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ *
+ *     @(#)block.p     5.1 (Berkeley) %G%
+ *)
+
+program blocktest(input, output);
+procedure A;
+       procedure B;
+       begin
+               writeln('in procedure B');
+       end;
+begin
+       writeln('in procedure A');
+       B;
+end;
+
+begin
+       writeln('in main program');
+       A;
+end.