diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-15 09:58:44 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-15 09:58:44 +0100 |
commit | 4ac453011fb3ee241c6f3023f79c942d99f72eb5 (patch) | |
tree | 00b4ef5e0be846f62e49c9af68a06a01fc9ae065 /test/cminor/integr.cm | |
parent | 29653baeb2c7fa6bfe5da031622d8fb8ac1e50c3 (diff) | |
download | compcert-4ac453011fb3ee241c6f3023f79c942d99f72eb5.tar.gz compcert-4ac453011fb3ee241c6f3023f79c942d99f72eb5.zip |
Remove tests involving Cminor concrete syntax. Update Changelog
Follow-up to [29653ba]
Diffstat (limited to 'test/cminor/integr.cm')
-rw-r--r-- | test/cminor/integr.cm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/test/cminor/integr.cm b/test/cminor/integr.cm deleted file mode 100644 index 28f0a1de..00000000 --- a/test/cminor/integr.cm +++ /dev/null @@ -1,25 +0,0 @@ -"square" (x): float -> float -{ - return x *f x; -} - -"integr"(f, low, high, n): int -> float -> float -> int -> float -{ - var h, x, s, i; - h = (high -f low) /f floatofint n; - x = low; - s = 0.0; - i = n; - {{ loop { - if (! (i > 0)) exit; - s = s +f (f(x): float -> float); - x = x +f h; - i = i - 1; - } }} - return s *f h; -} - -"test"(n) : int -> float -{ - return "integr"("square", 0.0, 1.0, n): int -> float -> float -> int -> float; -} |