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 * @(#)pointer.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program pointer(input, output); 11type xp = ^x; 12 x = record 13 y : integer; 14 a : real; 15 end; 16 17var p : xp; 18begin 19 new(p); 20 p^.y := 5; 21 p^.a := 3.14; 22 writeln('pointer test'); 23end. 24