Searched refs:c_funptr_2 (Results 1 – 1 of 1) sorted by relevance
105 pure logical function c_associated_c_funptr(c_funptr_1, c_funptr_2)107 type(c_funptr), intent(in), optional :: c_funptr_2 local110 else if (present(c_funptr_2)) then111 c_associated_c_funptr = c_funptr_1%__address == c_funptr_2%__address