Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gcc.dg/torture/pr47744-1.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do compile } */
kono
parents:
diff changeset
2 /* { dg-options "-fpic" { target fpic } } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 typedef int int32_t;
kono
parents:
diff changeset
5 static const int init_jk[] = {2,3,4,6};
kono
parents:
diff changeset
6 int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int32_t *ipio2)
kono
parents:
diff changeset
7 {
kono
parents:
diff changeset
8 int32_t jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
kono
parents:
diff changeset
9 double z,fw,f[20],fq[20],q[20];
kono
parents:
diff changeset
10 jk = init_jk[prec];
kono
parents:
diff changeset
11 jp = jk;
kono
parents:
diff changeset
12 jx = nx-1;
kono
parents:
diff changeset
13 for (i=0;i<=jk;i++) {
kono
parents:
diff changeset
14 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
kono
parents:
diff changeset
15 }
kono
parents:
diff changeset
16 for(i=0,j=jz,z=q[jz];j>0;i++,j--) {
kono
parents:
diff changeset
17 z = q[j-1]+fw;
kono
parents:
diff changeset
18 }
kono
parents:
diff changeset
19 n = (int32_t) z;
kono
parents:
diff changeset
20 return n&7;
kono
parents:
diff changeset
21 }