148076Sbostic(*
2*62156Sbostic * Copyright (c) 1980, 1993
3*62156Sbostic *	The Regents of the University of California.  All rights reserved.
448076Sbostic *
548076Sbostic * %sccs.include.redist.c%
648076Sbostic *
7*62156Sbostic *	@(#)enumbug.p	8.1 (Berkeley) 06/06/93
848076Sbostic *)
948076Sbostic
1048076Sbostic(*
1148076Sbostic * From peter@UCBERNIE Wed Apr 13 15:22:29 1983
1248076Sbostic * Date: 13 Apr 83 14:04:39 PST (Wed)
1348076Sbostic * From: peter@UCBERNIE (peter b. kessler)
1448076Sbostic * Subject: try ``pi -t t.p ; obj'' and then ``print variant.b''
1548076Sbostic * Message-Id: <8304132204.AA00797@UCBERNIE.ARPA>
1648076Sbostic * Received: by UCBERNIE.ARPA (3.320/3.12)
1748076Sbostic * 	id AA00797; 13 Apr 83 14:04:39 PST (Wed)
1848076Sbostic * Received: from UCBERNIE.ARPA by UCBARPA.ARPA (3.332/3.19)
1948076Sbostic * 	id AA01057; 13 Apr 83 15:22:23 PST (Wed)
2048076Sbostic * To: linton@UCBERNIE
2148076Sbostic * Status: R
2248076Sbostic *)
2348076Sbostic
2448076Sbosticprogram t(output);
2548076Sbostic    var
2648076Sbostic	variant : record case boolean of
2748076Sbostic			true: (b:boolean);
2848076Sbostic			false: (i:integer);
2948076Sbostic		    end;
3048076Sbostic    begin
3148076Sbostic	variant.i := -1;
3248076Sbostic	writeln(variant.b);
3348076Sbostic    end.
3448076Sbostic
35