Fail successful execution when expected error is defined

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

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