Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / fail / pat.1.sml
1 val _ =
2 case 13.0 of
3 14.0 => ()
4 ;