maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[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
This commit is contained in:
Peter Klausler 2022-03-21 16:01:06 -07:00
parent 150db43e41
commit 5c116d50e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
flang/module/iso_c_binding.f90
View File

@ -90,7 +90,7 @@ module iso_c_binding
contains 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) :: c_ptr_1
type(c_ptr), intent(in), optional :: c_ptr_2 type(c_ptr), intent(in), optional :: c_ptr_2
if (c_ptr_1%__address == c_null_ptr%__address) then if (c_ptr_1%__address == c_null_ptr%__address) then
@ -102,7 +102,7 @@ module iso_c_binding
end if end if
end function c_associated_c_ptr 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) :: c_funptr_1
type(c_funptr), intent(in), optional :: c_funptr_2 type(c_funptr), intent(in), optional :: c_funptr_2
if (c_funptr_1%__address == c_null_ptr%__address) then if (c_funptr_1%__address == c_null_ptr%__address) then