diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-11-28 14:43:16 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-11-28 14:43:16 +0000 |
| commit | 9fdd99b513a7d32526079cf276a46b50fab11347 (patch) | |
| tree | 2d38544fc9fd2071c28d2e090e634b5712535153 /testasmcomp/mainarith.c | |
| parent | 3686d2232a0bfad6dc016ec15f2cbe0f0afee3f4 (diff) | |
| download | ocaml-9fdd99b513a7d32526079cf276a46b50fab11347.tar.gz | |
Makefile: utiliser NATIVECC.
mainarith: tester qques cas limites flottants.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@485 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'testasmcomp/mainarith.c')
| -rw-r--r-- | testasmcomp/mainarith.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testasmcomp/mainarith.c b/testasmcomp/mainarith.c index fc84e5ad24..987ee06037 100644 --- a/testasmcomp/mainarith.c +++ b/testasmcomp/mainarith.c @@ -26,7 +26,7 @@ double f, g; } #define FLOATTEST(arg,res) \ { double result = (res); \ - if (arg != result) \ + if (arg < result || arg > result) \ printf("Failed test \"%s == %s\" for f=%g and g=%g: result %e, expected %e\n", \ #arg, #res, f, g, arg, result); \ } |