(bind-func vtest_c
(let ((iters:i64 80000000)
(i 0)
(a:/4,float/* (halloc (/ iters 4)))
(b:/4,float/* (halloc (/ iters 4)))
(c:/4,float/* (halloc (/ iters 4))))
(dotimes (i iters)
(pset! (cast a float*) i (i64tof i))
(pset! (cast b float*) i (i64tof i)))
(lambda ()
(dotimes (i (/ iters 4))
(pset! c i (* (pref a i) (pref b i))))
(if (= (ftoi64 (pref (cast c float*) 80000))
(* 80000 80000))
(printf "good sample!\n")
(printf "bad sample!\n"))
(cast c float*))))