* Copyright (c) 1980 The Regents of the University of California.
* %sccs.include.redist.c%
* @(#)test.p 5.1 (Berkeley) %G%
program blah(input, output);
intarray = array[Index] of 0..100;
a : array[1..10] of intarray;
function first(var p : integer) : integer;
for i := 1 to 10 do begin
for j := 1 to 10 do begin