--- gforth/fft-bench.fs	2012/10/08 19:17:32	1.2
+++ gforth/fft-bench.fs	2012/10/08 23:04:11	1.3
@@ -6,4 +6,11 @@ require fft.fs
 
 : setup ( -- ) 32 1024 * points >values ;
 
-: main setup fft rfft normalize ;
\ No newline at end of file
+: main setup fft rfft normalize ;
+
+Variable pass
+: test ( -- )  main pass on
+    #points 0 ?DO
+	i values z@ fround f>s fround f>s
+	I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN
+    LOOP  pass @ IF ." passed test" cr THEN ;