xref: /original-bsd/usr.bin/pascal/pdx/test/enumbug.p (revision 1ff91bf0)
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