TP3/shell/tests/fixtures/t124_forwardptr.pas

program forward_pointer_test;
type PNode = ^Node;
     Node = record
       Value : integer;
       Next  : PNode;
     end;
var P : PNode;
begin
  New(P);
  P^.Value := 42;
  P^.Next := nil;
  writeln(P^.Value);
  Dispose(P)
end.