diff --git a/src/base64.f90 b/src/base64.f90
index 7bc00a1f9..448f57d2a 100644
--- a/src/base64.f90
+++ b/src/base64.f90
@@ -151,7 +151,7 @@ pure logical function validBase64(base64_str)
   l = len(base64_str,pI64)
   validBase64 = .true.
 
-  if(mod(l,4_pI64)/=0_pI64 .or. l < 4_pInt)                                  validBase64 = .false.
+  if(mod(l,4_pI64)/=0_pI64 .or. l < 4_pI64)                                  validBase64 = .false.
   if(verify(base64_str(:l-2_pI64),base64_encoding,     kind=pI64) /= 0_pI64) validBase64 = .false.
   if(verify(base64_str(l-1_pI64:),base64_encoding//'=',kind=pI64) /= 0_pI64) validBase64 = .false.
 
diff --git a/src/grid/discretization_grid.f90 b/src/grid/discretization_grid.f90
index ddc9efd80..54851c1fe 100644
--- a/src/grid/discretization_grid.f90
+++ b/src/grid/discretization_grid.f90
@@ -307,7 +307,7 @@ subroutine readVTI(grid,geomSize,origin,material, &
       case('Float64')
         as_Int = int(prec_bytesToC_DOUBLE (asBytes(base64_str,headerType,compressed)))
       case default
-        call IO_error(844_pInt,ext_msg='unknown data type: '//trim(dataType))
+        call IO_error(844,ext_msg='unknown data type: '//trim(dataType))
     end select
 
   end function as_Int
@@ -335,7 +335,7 @@ subroutine readVTI(grid,geomSize,origin,material, &
       case('Float64')
         as_pReal = real(prec_bytesToC_DOUBLE (asBytes(base64_str,headerType,compressed)),pReal)
       case default
-        call IO_error(844_pInt,ext_msg='unknown data type: '//trim(dataType))
+        call IO_error(844,ext_msg='unknown data type: '//trim(dataType))
     end select
 
   end function as_pReal
diff --git a/src/mesh/FEM_utilities.f90 b/src/mesh/FEM_utilities.f90
index df16fa8e2..86fb52b36 100644
--- a/src/mesh/FEM_utilities.f90
+++ b/src/mesh/FEM_utilities.f90
@@ -92,7 +92,7 @@ subroutine FEM_utilities_init
     p_i                                                                                             !< integration order (quadrature rule)
   character(len=*), parameter :: &
     PETSCDEBUG = ' -snes_view -snes_monitor '
-  PetscErrorCode            :: ierr
+  PetscErrorCode :: ierr
   logical :: debugPETSc                                                                             !< use some in debug defined options for more verbose PETSc solution
 
 
@@ -103,9 +103,9 @@ subroutine FEM_utilities_init
   p_s = num_mesh%get_asInt('p_s',defaultVal = 2)
   p_i = num_mesh%get_asInt('p_i',defaultVal = p_s)
 
-  if (p_s < 1_pInt .or. p_s > size(FEM_nQuadrature,2)) &
+  if (p_s < 1 .or. p_s > size(FEM_nQuadrature,2)) &
     call IO_error(821,ext_msg='shape function order (p_s) out of bounds')
-  if (p_i < max(1_pInt,p_s-1_pInt) .or. p_i > p_s) &
+  if (p_i < max(1,p_s-1) .or. p_i > p_s) &
     call IO_error(821,ext_msg='integration order (p_i) out of bounds')
 
   debug_mesh  => config_debug%get('mesh',defaultVal=emptyList)
diff --git a/src/prec.f90 b/src/prec.f90
index fe3e7fc20..2616a6dcf 100644
--- a/src/prec.f90
+++ b/src/prec.f90
@@ -29,10 +29,10 @@ module prec
 #endif
 #ifdef PETSC
   PetscInt,    private   :: dummy
-  integer,     parameter :: pPetscInt  = kind(dummy)
+  integer,     parameter :: pPETSCINT  = kind(dummy)
 #endif
-  integer,     parameter :: pStringLen = 256                                                        !< default string length
-  integer,     parameter :: pPathLen   = 4096                                                       !< maximum length of a path name on linux
+  integer,     parameter :: pSTRINGLEN = 256                                                        !< default string length
+  integer,     parameter :: pPATHLEN   = 4096                                                       !< maximum length of a path name on linux
 
   real(pReal), parameter :: tol_math_check = 1.0e-8_pReal                                           !< tolerance for internal math self-checks (rotation)
 
@@ -277,7 +277,7 @@ subroutine selfTest
 
   integer, allocatable, dimension(:) :: realloc_lhs_test
   real(pReal),   dimension(1) :: f
-  integer(pInt), dimension(1) :: i
+  integer(pI64), dimension(1) :: i
   real(pReal),   dimension(2) :: r
 
 
@@ -298,11 +298,11 @@ subroutine selfTest
   f = real(prec_bytesToC_DOUBLE(int([0,0,0,-32,+119,+65,+115,65],C_SIGNED_CHAR)),pReal)
   if (dNeq(f(1),20191102.0_pReal,0.0_pReal)) error stop 'prec_bytesToC_DOUBLE'
 
-  i = int(prec_bytesToC_INT32_T(int([+126,+23,+52,+1],C_SIGNED_CHAR)),pInt)
-  if (i(1) /= 20191102_pInt)                 error stop 'prec_bytesToC_INT32_T'
+  i = int(prec_bytesToC_INT32_T(int([+126,+23,+52,+1],C_SIGNED_CHAR)),pI64)
+  if (i(1) /= 20191102_pI64)                 error stop 'prec_bytesToC_INT32_T'
 
-  i = int(prec_bytesToC_INT64_T(int([+126,+23,+52,+1,0,0,0,0],C_SIGNED_CHAR)),pInt)
-  if (i(1) /= 20191102_pInt)                 error stop 'prec_bytesToC_INT64_T'
+  i = int(prec_bytesToC_INT64_T(int([+126,+23,+52,+1,0,0,0,0],C_SIGNED_CHAR)),pI64)
+  if (i(1) /= 20191102_pI64)                 error stop 'prec_bytesToC_INT64_T'
 
 end subroutine selfTest