[unix-history] / tests / t14.p

program rec(output);
type
	alfa = packed array[1..10] of char;
	status = (married, widowed, divorced, single);
	date = record
		mo: (jan, feb, mar, apr, may, jun,
			july, aug, sept, oct, nov, dec);
		day: 1..31;
		year: integer
		end;
	person = record
		name: record
			first, last: alfa
			end;
		ss: integer;
		sex: (male, female);
		birth: date;
		depdts: integer;
		case ms: status of
			married, widowed: (
				mdate: date);
			divorced: (
				ddate: date;
				firstd: boolean);
			single: (
				indepdt: boolean)
		end;
var
	p: ^person;
begin
	new(p);
	p^.name.last := 'woodyard';
	p^.name.first := 'edward';
	p^.ss := 845680539;
	p^.sex := male;
	p^.birth.mo := aug;
	p^.birth.day := 30;
	p^.birth.year := 1941;
	p^.depdts := 1;
	p^.ms := single;
	p^.indepdt := true;
end.
Commit	Line	Data
fde98a2d BJ	1	program rec(output);
	2	type
	3	alfa = packed array[1..10] of char;
	4	status = (married, widowed, divorced, single);
	5	date = record
	6	mo: (jan, feb, mar, apr, may, jun,
	7	july, aug, sept, oct, nov, dec);
	8	day: 1..31;
	9	year: integer
	10	end;
	11	person = record
	12	name: record
	13	first, last: alfa
	14	end;
	15	ss: integer;
	16	sex: (male, female);
	17	birth: date;
	18	depdts: integer;
	19	case ms: status of
	20	married, widowed: (
	21	mdate: date);
	22	divorced: (
	23	ddate: date;
	24	firstd: boolean);
	25	single: (
	26	indepdt: boolean)
	27	end;
	28	var
	29	p: ^person;
	30	begin
	31	new(p);
	32	p^.name.last := 'woodyard';
	33	p^.name.first := 'edward';
	34	p^.ss := 845680539;
	35	p^.sex := male;
	36	p^.birth.mo := aug;
	37	p^.birth.day := 30;
	38	p^.birth.year := 1941;
	39	p^.depdts := 1;
	40	p^.ms := single;
	41	p^.indepdt := true;
	42	end.