Return to align.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/align.p, revision 1.1.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.