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

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.