modern-compiler-ml/tiger/testcases/test40.tig

8 lines
80 B
Text
Raw Normal View History

/* error : procedure returns value */
let
function g(a:int) = a
in
g(2)
end