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 * @(#)test.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program blah(input, output); 11const 12 CONSTANT = 3; 13 FLTCON = 3.14; 14type 15 Index = 1..10; 16 intarray = array[Index] of 0..100; 17 rec = record 18 x : integer; 19 y : char; 20 z : integer; 21 end; 22var 23 i : integer; 24 x : real; 25 a : array[1..10] of intarray; 26 r : rec; 27 p : ^rec; 28 b : boolean; 29 unused : integer; 30 31function first(var p : integer) : integer; 32begin 33 i := p; 34 r.x := 4; 35 r.y := 'y'; 36 r.z := 6; 37 b := true; 38 first := p; 39end; 40 41procedure start; 42var q : integer; 43begin 44 q := -5; 45 q := first(q); 46 a[i][1] := q; 47end; 48 49procedure init; 50var i, j : integer; 51begin 52 b := false; 53 for i := 1 to 10 do begin 54 for j := 1 to 10 do begin 55 a[i][j] := 10*(i-1) + j; 56 end; 57 end; 58 start; 59end; 60 61begin 62 init; 63 a[1][1] := 3; 64 a[10][1] := 2; 65 a[1][10] := 1; 66 writeln('garbage'); 67 readln(i); 68end. 69