Searched refs:c_ptr_1 (Results 1 – 1 of 1) sorted by relevance
93 pure logical function c_associated_c_ptr(c_ptr_1, c_ptr_2)94 type(c_ptr), intent(in) :: c_ptr_1 local96 if (c_ptr_1%__address == c_null_ptr%__address) then99 c_associated_c_ptr = c_ptr_1%__address == c_ptr_2%__address