diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2005-08-12 09:22:04 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2005-08-12 09:22:04 +0000 |
| commit | 7df7bda91d28017947f433b9b5772e50a5862e44 (patch) | |
| tree | 601766189a89ca3f0c0a71904c8024152350b177 /test/fft.ml | |
| parent | 0ba310639994de37ef4fac8d79c3912654effad7 (diff) | |
MAJ des benchs
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7017 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'test/fft.ml')
| -rw-r--r-- | test/fft.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/test/fft.ml b/test/fft.ml index 242c00671..0907cdee3 100644 --- a/test/fft.ml +++ b/test/fft.ml @@ -179,10 +179,11 @@ let test np = ki := i end done; - let zm = if abs_float !zr < abs_float !zi then !zi else !zr in - print_float zm; print_newline() - + if abs_float !zr <= 1e-9 && abs_float !zi <= 1e-9 + then print_string "ok" + else print_string "ERROR"; + print_newline() let _ = - let np = ref 16 in for i = 1 to 13 do test !np; np := !np*2 done + let np = ref 16 in for i = 1 to 16 do test !np; np := !np*2 done |