summaryrefslogtreecommitdiffstats
path: root/tests/16-datatype.sml
blob: 75146061a4f7d40a7c551bb8fdf76628bac8ba4b (plain) (blame)
1
2
3
4
5
datatype D = D of int

fun f (D x) = __builtin "exit" x

val _ = f (D 42)