Searched refs:c_funptr_1 (Results 1 – 1 of 1) sorted by relevance
105 pure logical function c_associated_c_funptr(c_funptr_1, c_funptr_2)106 type(c_funptr), intent(in) :: c_funptr_1 local108 if (c_funptr_1%__address == c_null_ptr%__address) then111 c_associated_c_funptr = c_funptr_1%__address == c_funptr_2%__address