4.3BSD - /usr/src/ucb/pascal/pdx/test/pointer.p

   1: program pointer(input, output);
   2: type    xp = ^x;
   3:     x = record
   4:         y : integer;
   5:         a : real;
   6:     end;
   7: 
   8: var p : xp;
   9: begin
  10:     new(p);
  11:     p^.y := 5;
  12:     p^.a := 3.14;
  13:     writeln('pointer test');
  14: end.