Merge pull request #83 from sourceryinstitute/workaround-ifx-proc-ptr…

…-in-pure fix: work around ifx impure function-ref bug
sourceryinstitute · May 2, 2024 · f3914ce · f3914ce
2 parents a3d9df3 + 6651fa5
commit f3914ce
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/sourcery/sourcery_test_description_m.f90 → src/sourcery/sourcery_test_description_m.F90 b/src/sourcery/sourcery_test_description_m.f90 → 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
+end module sourcery_test_description_m
diff --git a/src/sourcery/sourcery_test_description_s.f90 b/src/sourcery/sourcery_test_description_s.f90
@@ -22,4 +22,4 @@
     module procedure equals
       lhs_eq_rhs = (lhs%description_ == rhs%description_) .and. associated(lhs%test_function_, rhs%test_function_)
     end procedure
-end submodule sourcery_test_description_s
+end submodule sourcery_test_description_s