1*48084Sbostic(*
2*48084Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*48084Sbostic * All rights reserved.
4*48084Sbostic *
5*48084Sbostic * %sccs.include.redist.c%
6*48084Sbostic *
7*48084Sbostic *	@(#)pointer.p	5.1 (Berkeley) 04/16/91
8*48084Sbostic *)
9*48084Sbostic
10*48084Sbosticprogram pointer(input, output);
11*48084Sbostictype	xp = ^x;
12*48084Sbostic	x = record
13*48084Sbostic		y : integer;
14*48084Sbostic		a : real;
15*48084Sbostic	end;
16*48084Sbostic
17*48084Sbosticvar	p : xp;
18*48084Sbosticbegin
19*48084Sbostic	new(p);
20*48084Sbostic	p^.y := 5;
21*48084Sbostic	p^.a := 3.14;
22*48084Sbostic	writeln('pointer test');
23*48084Sbosticend.
24