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

12 lines
133 B
Text
Raw Normal View History

/* error: mutually recursive types thet do not pass through record or array */
let
type a=c
type b=a
type c=d
type d=a
in
""
end