Skip to content

Commit f3914ce

Browse files
authored
Merge pull request #83 from sourceryinstitute/workaround-ifx-proc-ptr-in-pure
fix: work around ifx impure function-ref bug
2 parents a3d9df3 + 6651fa5 commit f3914ce

File tree

2 files changed

+5
-2
lines changed

2 files changed

+5
-2
lines changed

src/sourcery/sourcery_test_description_m.f90 renamed to src/sourcery/sourcery_test_description_m.F90

+4-1
Original file line numberDiff line numberDiff line change
@@ -64,6 +64,9 @@ impure elemental module function contains_text(self, substring) result(match)
6464
logical match
6565
end function
6666

67+
#ifdef __INTEL_COMPILER
68+
impure &
69+
#endif
6770
elemental module function equals(lhs, rhs) result(lhs_eq_rhs)
6871
!! The result is .true. if the components of the lhs & rhs are equal
6972
implicit none
@@ -73,4 +76,4 @@ elemental module function equals(lhs, rhs) result(lhs_eq_rhs)
7376

7477
end interface
7578

76-
end module sourcery_test_description_m
79+
end module sourcery_test_description_m

src/sourcery/sourcery_test_description_s.f90

+1-1
Original file line numberDiff line numberDiff line change
@@ -22,4 +22,4 @@
2222
module procedure equals
2323
lhs_eq_rhs = (lhs%description_ == rhs%description_) .and. associated(lhs%test_function_, rhs%test_function_)
2424
end procedure
25-
end submodule sourcery_test_description_s
25+
end submodule sourcery_test_description_s

0 commit comments

Comments
 (0)