Return to pointer.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / pascal / pdx / test

Annotation of 43BSD/ucb/pascal/pdx/test/pointer.p, revision 1.1.1.1

1.1       root        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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.