[hcoop/debian/mlton.git] / regression / big-array.sml

open Array

val a'' = tabulate (1000000, fn i => i)
val _ = sub (a'', 0) + sub (a'', 1)
val _ = print "OK\n"
Commit	Line	Data
7f918cf1 CE	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"