summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/execute/20020413-1.c
diff options
context:
space:
mode:
authorupstream source tree <ports@midipix.org>2015-03-15 20:14:05 -0400
committerupstream source tree <ports@midipix.org>2015-03-15 20:14:05 -0400
commit554fd8c5195424bdbcabf5de30fdc183aba391bd (patch)
tree976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/testsuite/gcc.c-torture/execute/20020413-1.c
downloadcbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.bz2
cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.xz
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository.
Diffstat (limited to 'gcc/testsuite/gcc.c-torture/execute/20020413-1.c')
-rw-r--r--gcc/testsuite/gcc.c-torture/execute/20020413-1.c36
1 files changed, 36 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.c-torture/execute/20020413-1.c b/gcc/testsuite/gcc.c-torture/execute/20020413-1.c
new file mode 100644
index 000000000..fdef9eed7
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20020413-1.c
@@ -0,0 +1,36 @@
+void test(long double val, int *eval)
+{
+ long double tmp = 1.0l;
+ int i = 0;
+
+ if (val < 0.0l)
+ val = -val;
+
+ if (val >= tmp)
+ while (tmp < val)
+ {
+ tmp *= 2.0l;
+ if (i++ >= 10)
+ abort ();
+ }
+ else if (val != 0.0l)
+ while (val < tmp)
+ {
+ tmp /= 2.0l;
+ if (i++ >= 10)
+ abort ();
+ }
+
+ *eval = i;
+}
+
+int main(void)
+{
+ int eval;
+
+ test(3.0, &eval);
+ test(3.5, &eval);
+ test(4.0, &eval);
+ test(5.0, &eval);
+ exit (0);
+}