148073Sbostic(* 2*62154Sbostic * Copyright (c) 1980, 1993 3*62154Sbostic * The Regents of the University of California. All rights reserved. 448073Sbostic * 548073Sbostic * %sccs.include.redist.c% 648073Sbostic * 7*62154Sbostic * @(#)bug.p 8.1 (Berkeley) 06/06/93 848073Sbostic *) 948073Sbostic 1048073Sbosticprogram test (output); 1148073Sbosticvar a : array [1..10] of integer; 1248073Sbosticprocedure foo; 1348073Sbosticbegin 1448073Sbostic a[4] := 100; 1548073Sbostic a[5] := 100; 1648073Sbostic a[6] := 100; 1748073Sbosticend; 1848073Sbosticfunction bar (x:integer):integer; 1948073Sbostic begin 2048073Sbostic bar := 10*x; 2148073Sbostic end; 2248073Sbosticbegin 2348073Sbostic a[1] := 100; 2448073Sbostic foo; 2548073Sbostic a[2] := bar(2); 2648073Sbostic a[3] := 100; 2748073Sbosticend. 28