Return to varnt.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/pdx/test/varnt.p, revision 1.1.1.1

1.1       root        1: program varnt(input, output);
                      2: type
                      3:        vrec = record
                      4:                rfield : integer;
                      5:                case integer of
                      6:                1: (
                      7:                        vfield : integer;
                      8:                );
                      9:                2: (
                     10:                        vfield2 : real;
                     11:                );
                     12:        end;
                     13: 
                     14: var
                     15:        r : vrec;
                     16: begin
                     17:        r.vfield := 1;
                     18:        r.vfield2 := 2.5;
                     19:        r.rfield := 0;
                     20:        writeln('done');
                     21: end.

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