Searched refs:c_ptr_2 (Results 1 – 1 of 1) sorted by relevance
93 pure logical function c_associated_c_ptr(c_ptr_1, c_ptr_2)95 type(c_ptr), intent(in), optional :: c_ptr_2 local98 else if (present(c_ptr_2)) then99 c_associated_c_ptr = c_ptr_1%__address == c_ptr_2%__address