Return to enumbug.p CVS log

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

Annotation of 43BSD/ucb/pascal/pdx/test/enumbug.p, revision 1.1

1.1     ! root        1: From peter@UCBERNIE Wed Apr 13 15:22:29 1983
        !             2: Date: 13 Apr 83 14:04:39 PST (Wed)
        !             3: From: peter@UCBERNIE (peter b. kessler)
        !             4: Subject: try ``pi -t t.p ; obj'' and then ``print variant.b''
        !             5: Message-Id: <[email protected]>
        !             6: Received: by UCBERNIE.ARPA (3.320/3.12)
        !             7:        id AA00797; 13 Apr 83 14:04:39 PST (Wed)
        !             8: Received: from UCBERNIE.ARPA by UCBARPA.ARPA (3.332/3.19)
        !             9:        id AA01057; 13 Apr 83 15:22:23 PST (Wed)
        !            10: To: linton@UCBERNIE
        !            11: Status: R
        !            12: 
        !            13: program t(output);
        !            14:     var
        !            15:        variant : record case boolean of
        !            16:                        true: (b:boolean);
        !            17:                        false: (i:integer);
        !            18:                    end;
        !            19:     begin
        !            20:        variant.i := -1;
        !            21:        writeln(variant.b);
        !            22:     end.
        !            23: 

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