From 5c116d50e42f93ef4fa9a9719121378ec6b99b69 Mon Sep 17 00:00:00 2001 From: Peter Klausler Date: Mon, 21 Mar 2022 16:01:06 -0700 Subject: [PATCH] [flang] Mark C_ASSOCIATED specific procedures as PURE The interfaces to C_ASSOCIATED()'s specific procedures must be PURE so that they are accepted for use in specification expressions. Differential Revision: https://reviews.llvm.org/D122438 --- flang/module/iso_c_binding.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/flang/module/iso_c_binding.f90 b/flang/module/iso_c_binding.f90 index 3668daab46ee..347b917223d8 100644 --- a/flang/module/iso_c_binding.f90 +++ b/flang/module/iso_c_binding.f90 @@ -90,7 +90,7 @@ module iso_c_binding contains - logical function c_associated_c_ptr(c_ptr_1, c_ptr_2) + pure logical function c_associated_c_ptr(c_ptr_1, c_ptr_2) type(c_ptr), intent(in) :: c_ptr_1 type(c_ptr), intent(in), optional :: c_ptr_2 if (c_ptr_1%__address == c_null_ptr%__address) then @@ -102,7 +102,7 @@ module iso_c_binding end if end function c_associated_c_ptr - logical function c_associated_c_funptr(c_funptr_1, c_funptr_2) + pure logical function c_associated_c_funptr(c_funptr_1, c_funptr_2) type(c_funptr), intent(in) :: c_funptr_1 type(c_funptr), intent(in), optional :: c_funptr_2 if (c_funptr_1%__address == c_null_ptr%__address) then