148084Sbostic(*
2*62158Sbostic * Copyright (c) 1980, 1993
3*62158Sbostic *	The Regents of the University of California.  All rights reserved.
448084Sbostic *
548084Sbostic * %sccs.include.redist.c%
648084Sbostic *
7*62158Sbostic *	@(#)pointer.p	8.1 (Berkeley) 06/06/93
848084Sbostic *)
948084Sbostic
1048084Sbosticprogram pointer(input, output);
1148084Sbostictype	xp = ^x;
1248084Sbostic	x = record
1348084Sbostic		y : integer;
1448084Sbostic		a : real;
1548084Sbostic	end;
1648084Sbostic
1748084Sbosticvar	p : xp;
1848084Sbosticbegin
1948084Sbostic	new(p);
2048084Sbostic	p^.y := 5;
2148084Sbostic	p^.a := 3.14;
2248084Sbostic	writeln('pointer test');
2348084Sbosticend.
24