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;