(bind-func test_g_array2
(lambda ()
(let ((i 0))
(dotimes (i 10)
(aset! g_array1 i (i64tod i))
(aset! g_array2 i i)
(printf "garray_1[%lld] = %f garray_2[%lld] = %lld\n"
i (aref g_array1 i) i (aref g_array2 i)))
(= (dtoi64 (aref g_array1 5))
(aref g_array2 5)))))