diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90
index 8b39c44de..1ca1d0b16 100644
--- a/src/grid/spectral_utilities.f90
+++ b/src/grid/spectral_utilities.f90
@@ -1011,7 +1011,7 @@ subroutine utilities_updateCoords(F)
 #endif
   real(pReal),   dimension(3)   :: step
   real(pReal),   dimension(3,3) :: Favg
-  integer,       dimension(3) :: me
+  integer,       dimension(3)   :: me
   integer, dimension(3,8) :: &
     neighbor = reshape([ &
                         0, 0, 0, &
diff --git a/src/homogenization_mechanical_RGC.f90 b/src/homogenization_mechanical_RGC.f90
index 53b1ba350..d60e04cf5 100644
--- a/src/homogenization_mechanical_RGC.f90
+++ b/src/homogenization_mechanical_RGC.f90
@@ -668,7 +668,7 @@ module function RGC_updateState(P,F,avgF,dt,dPdF,ce) result(doneAndHappy)
     real(pReal),   dimension(:,:,:), intent(out) :: F                                               !< partitioned F  per grain
 
     real(pReal),   dimension(:,:),   intent(in)  :: avgF                                            !< averaged F
-    integer,                          intent(in)  :: &
+    integer,                         intent(in)  :: &
       ho, &
       en
 
diff --git a/src/prec.f90 b/src/prec.f90
index d0c1022fd..c56ee500b 100644
--- a/src/prec.f90
+++ b/src/prec.f90
@@ -205,7 +205,7 @@ end function prec_bytesToC_FLOAT
 pure function prec_bytesToC_DOUBLE(bytes)
 
   integer(C_SIGNED_CHAR), dimension(:), intent(in) :: bytes                                         !< byte-wise representation of a C_DOUBLE array
-  real(pReal),    dimension(size(bytes,kind=pI64)/(storage_size(0._C_DOUBLE,pI64)/8_pI64)) :: &
+  real(C_DOUBLE), dimension(size(bytes,kind=pI64)/(storage_size(0._C_DOUBLE,pI64)/8_pI64)) :: &
     prec_bytesToC_DOUBLE