kc3-lang/SDL

diff --git a/src/libm/k_rem_pio2.c b/src/libm/k_rem_pio2.c
index 9956d95..7b04275 100644
--- a/src/libm/k_rem_pio2.c
+++ b/src/libm/k_rem_pio2.c
@@ -167,7 +167,8 @@ int attribute_hidden __kernel_rem_pio2(double *x, double *y, int e0, int nx, 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;