diff --git a/src/future.f90 b/src/future.f90
index 354a522e4..b7eb3fec9 100644
--- a/src/future.f90
+++ b/src/future.f90
@@ -10,7 +10,7 @@ module future
 
 contains
 
-#if defined(__GFORTRAN__) &&  __GNUC__<9 || __INTEL_COMPILER<1800
+#if defined(__GFORTRAN__) &&  __GNUC__<9 || defined(__INTEL_COMPILER) && INTEL_COMPILER<1800
 !--------------------------------------------------------------------------------------------------
 !> @brief substitute for the findloc intrinsic (only for integer, dimension(:) at the moment)
 !--------------------------------------------------------------------------------------------------
diff --git a/src/rotations.f90 b/src/rotations.f90
index a4a0bac88..5deb02a20 100644
--- a/src/rotations.f90
+++ b/src/rotations.f90
@@ -596,7 +596,7 @@ function om2ax(om) result(ax)
   else
     call dgeev('N','V',3,om_,3,Wr,Wi,devNull,3,VR,3,work,size(work,1),ierr)
     if (ierr /= 0) call IO_error(0,ext_msg='Error in om2ax: DGEEV return not zero')
-#if defined(__GFORTRAN__) &&  __GNUC__ < 9 || __INTEL_COMPILER < 1800
+#if defined(__GFORTRAN__) &&  __GNUC__<9 || defined(__INTEL_COMPILER) && INTEL_COMPILER<1800
     i = maxloc(merge(1,0,cEq(cmplx(Wr,Wi,pReal),cmplx(1.0_pReal,0.0_pReal,pReal),tol=1.0e-14_pReal)),dim=1)
 #else
     i = findloc(cEq(cmplx(Wr,Wi,pReal),cmplx(1.0_pReal,0.0_pReal,pReal),tol=1.0e-14_pReal),.true.,dim=1) !find eigenvalue (1,0)