1(* 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)enumbug.p 5.1 (Berkeley) 04/16/91 8 *) 9 10(* 11 * From peter@UCBERNIE Wed Apr 13 15:22:29 1983 12 * Date: 13 Apr 83 14:04:39 PST (Wed) 13 * From: peter@UCBERNIE (peter b. kessler) 14 * Subject: try ``pi -t t.p ; obj'' and then ``print variant.b'' 15 * Message-Id: <8304132204.AA00797@UCBERNIE.ARPA> 16 * Received: by UCBERNIE.ARPA (3.320/3.12) 17 * id AA00797; 13 Apr 83 14:04:39 PST (Wed) 18 * Received: from UCBERNIE.ARPA by UCBARPA.ARPA (3.332/3.19) 19 * id AA01057; 13 Apr 83 15:22:23 PST (Wed) 20 * To: linton@UCBERNIE 21 * Status: R 22 *) 23 24program t(output); 25 var 26 variant : record case boolean of 27 true: (b:boolean); 28 false: (i:integer); 29 end; 30 begin 31 variant.i := -1; 32 writeln(variant.b); 33 end. 34 35