summaryrefslogtreecommitdiffstats
path: root/tests/155-case-tuple.sml
blob: 774fb344cc305868ff09ae4fd1242ee36f569cbf (plain) (blame)
1
2
3
4
val _ = __builtin "exit"
  (case (1, 2, 42) of
    (_, 2, x) => x
  | _ => 13)