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

/* error : procedure returns value */
let
	function g(a:int) = a
in 
	g(2)
end
Commit	Line	Data
38ffcb1f SK	1	/* error : procedure returns value */
	2	let
	3	function g(a:int) = a
	4	in
	5	g(2)
	6	end
	7