diff --git a/src/lisp/k_rem_pio2.c b/src/lisp/k_rem_pio2.c index 1d1a82524c24bea2cbcd92f473b54bf94c37edbc..cfaa71b91bfbefcecb45353903360e895707b043 100644 --- a/src/lisp/k_rem_pio2.c +++ b/src/lisp/k_rem_pio2.c @@ -168,7 +168,9 @@ int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int /* compute q[0],q[1],...q[jk] */ for (i=0;i<=jk;i++) { - for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw; + for(j=0,fw=0.0;j<=jx;j++) + fw += x[j]*f[jx+i-j]; + q[i] = fw; } jz = jk;