Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / big-array.sml
1 open Array
2
3 val a'' = tabulate (1000000, fn i => i)
4 val _ = sub (a'', 0) + sub (a'', 1)
5 val _ = print "OK\n"