BSD 4_2 development

Work on file usr/src/ucb/pascal/pdx/test/bug.p

Synthesized-from: CSRG/cd1/4.2

diff --git a/usr/src/ucb/pascal/pdx/test/bug.p b/usr/src/ucb/pascal/pdx/test/bug.p
new file mode 100644 (file)
index 0000000..2afb833
--- /dev/null
+++ b/usr/src/ucb/pascal/pdx/test/bug.p
@@ -0,0 +1,18 @@
+program test (output);
+var a : array [1..10] of integer;
+procedure foo;
+begin
+ a[4] := 100;
+ a[5] := 100;
+ a[6] := 100;
+end;
+function bar (x:integer):integer;
+  begin
+    bar := 10*x;
+  end;
+begin
+ a[1] := 100;
+ foo;
+ a[2] := bar(2);
+ a[3] := 100;
+end.