Return to align.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/align.p, revision 1.1

1.1     ! root        1: program test(output);
        !             2: type
        !             3: name = array[1..4] of char;
        !             4: rec = record
        !             5:        x :boolean;
        !             6:        y :name;
        !             7:        end;
        !             8: var
        !             9: foo, bar :rec;
        !            10: nm :name;
        !            11: begin
        !            12: foo.y := '    ';
        !            13: foo.y[1] := 'n';
        !            14: bar := foo;
        !            15: nm := '    ';
        !            16: nm[1] := 'n';
        !            17: writeln('foo =', foo.y, '<- bar =', bar.y, '<- nm =', nm, '<-');
        !            18: if (foo.y = nm) then
        !            19:        writeln('cmp works')
        !            20: else
        !            21:        writeln('cmp fails');
        !            22: end.

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