1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)bug.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program test (output); 11var a : array [1..10] of integer; 12procedure foo; 13begin 14 a[4] := 100; 15 a[5] := 100; 16 a[6] := 100; 17end; 18function bar (x:integer):integer; 19 begin 20 bar := 10*x; 21 end; 22begin 23 a[1] := 100; 24 foo; 25 a[2] := bar(2); 26 a[3] := 100; 27end. 28