do_getF: resid needs allocated storage even if it is not used dqrsl

We use the same dqrsl.f call for FIT and FIT+RESID, and although
resid is only needed with RESID we do refenrence that in the
dqrsl call and therefore it needs allocated storage. Altenrative
would use different dqrsl calls for qrkind FIT+RESID and FIT.

Author: jarioksa

src/getF.c

@@ -331,10 +331,7 @@ SEXP do_getF(SEXP perms, SEXP E, SEXP QR, SEXP QZ,  SEXP effects,
     }
 
     double *fitted = (double *) R_alloc(nr * nc, sizeof(double));
-    /* separate resid needed only in some cases */
-    double *resid;
-    if (PARTIAL || FIRST)
-	resid = (double *) R_alloc(nr * nc, sizeof(double));
+    double *resid = (double *) R_alloc(nr * nc, sizeof(double));
     /* work array and variables for QR decomposition */
     double *qty = (double *) R_alloc(nr, sizeof(double));
     double dummy[1] = {0.0};