1! { dg-do compile } 2module c_assoc_2 3 use, intrinsic :: iso_c_binding, only: c_ptr, c_associated 4 5contains 6 subroutine sub0(my_c_ptr) bind(c) 7 type(c_ptr), value :: my_c_ptr 8 type(c_ptr), pointer :: my_c_ptr_2 9 integer :: my_integer 10 11 if(.not. c_associated(my_c_ptr)) then 12 STOP 1 13 end if 14 15 if(.not. c_associated(my_c_ptr, my_c_ptr)) then 16 STOP 2 17 end if 18 19 if(.not. c_associated(my_c_ptr, my_c_ptr, my_c_ptr)) then ! { dg-error "Too many arguments in call" } 20 STOP 3 21 end if 22 23 if(.not. c_associated()) then ! { dg-error "Missing actual argument" } 24 STOP 4 25 end if 26 27 if(.not. c_associated(my_c_ptr_2)) then 28 STOP 5 29 end if 30 31 if(.not. c_associated(my_integer)) then ! { dg-error "shall have the type TYPE.C_PTR. or TYPE.C_FUNPTR." } 32 STOP 6 33 end if 34 end subroutine sub0 35 36end module c_assoc_2 37