Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | open Array MLton.GC |
2 | ||
3 | val a = tabulate (100000, fn i => i) | |
4 | val _ = pack () | |
5 | val a' = tabulate (100, fn i => i) | |
6 | val _ = unpack () | |
7 | val _ = sub (a, 0) + sub (a, 1) | |
8 | val _ = sub (a', 0) + sub (a', 1) | |
9 | val a'' = tabulate (1000000, fn i => i) | |
10 | val _ = sub (a'', 0) + sub (a'', 1) | |
11 | val _ = print "OK\n" |