diff --git a/src/sourcery/sourcery_test_description_m.f90 b/src/sourcery/sourcery_test_description_m.F90
similarity index 96%
rename from src/sourcery/sourcery_test_description_m.f90
rename to src/sourcery/sourcery_test_description_m.F90
index 9f2764cd..33e6a4fa 100644
--- a/src/sourcery/sourcery_test_description_m.f90
+++ b/src/sourcery/sourcery_test_description_m.F90
@@ -64,6 +64,9 @@ impure elemental module function contains_text(self, substring) result(match)
       logical match
     end function
 
+#ifdef __INTEL_COMPILER
+    impure &
+#endif
     elemental module function equals(lhs, rhs) result(lhs_eq_rhs)
       !! The result is .true. if the components of the lhs & rhs are equal
       implicit none
@@ -73,4 +76,4 @@ elemental module function equals(lhs, rhs) result(lhs_eq_rhs)
 
   end interface
 
-end module sourcery_test_description_m
\ No newline at end of file
+end module sourcery_test_description_m
diff --git a/src/sourcery/sourcery_test_description_s.f90 b/src/sourcery/sourcery_test_description_s.f90
index 4f5d070e..6a798d82 100644
--- a/src/sourcery/sourcery_test_description_s.f90
+++ b/src/sourcery/sourcery_test_description_s.f90
@@ -20,6 +20,7 @@
     end procedure
 
     module procedure equals
-      lhs_eq_rhs = (lhs%description_ == rhs%description_) .and. associated(lhs%test_function_, rhs%test_function_)
+      !lhs_eq_rhs = (lhs%description_ == rhs%description_) .and. associated(lhs%test_function_, rhs%test_function_)
+      lhs_eq_rhs = associated(lhs%test_function_, rhs%test_function_)
     end procedure
-end submodule sourcery_test_description_s
\ No newline at end of file
+end submodule sourcery_test_description_s