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