4.3BSD - /usr/src/ucb/pascal/pdx/test/enumbug.p

   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: <8304132204.AA00797@UCBERNIE.ARPA>
   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.