[tiger.ml.git] / compiler / testcases / test22.tig

/* error : field not in record type */

let 
	type rectype = {name:string , id:int}
	var rec1 := rectype {name="Name", id=0}
in
	rec1.nam := "asd"
end
Commit	Line	Data
38ffcb1f SK	1	/* error : field not in record type */
	2
	3	let
	4	type rectype = {name:string , id:int}
	5	var rec1 := rectype {name="Name", id=0}
	6	in
	7	rec1.nam := "asd"
	8	end