170-case-datatype.sml « tests - sml - Compiler for Standard ML

summary refs log tree commit diff stats

path: root/tests/170-case-datatype.sml

blob: 974f26362788fd1163a50f50eac7b03a8180b22a (plain) (blame)

datatype D = A | B

val _ =
  case B of
    A => __builtin "exit" 0
  | B => __builtin "exit" 42