regression/array4.sml

   1 fun f n =
   2    if 0 = Array.sub (Array.tabulate (n, fn i => i), 0)
   3       then ()
   4    else f 13
   5
   6 val _ = (f 0; raise Fail "bug") handle Subscript => ()
   7 val _ = f 1