date and time created 91/04/16 14:59:02 by bostic

SCCS-vsn: usr.bin/pascal/pdx/test/pointer.p 5.1

diff --git a/usr/src/usr.bin/pascal/pdx/test/pointer.p b/usr/src/usr.bin/pascal/pdx/test/pointer.p
new file mode 100644 (file)
index 0000000..9579eaa
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/test/pointer.p
@@ -0,0 +1,23 @@
+(*
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ *
+ *     @(#)pointer.p   5.1 (Berkeley) %G%
+ *)
+
+program pointer(input, output);
+type   xp = ^x;
+       x = record
+               y : integer;
+               a : real;
+       end;
+
+var    p : xp;
+begin
+       new(p);
+       p^.y := 5;
+       p^.a := 3.14;
+       writeln('pointer test');
+end.