W3cubDocs

/GNU Fortran 7

9.52 C_ASSOCIATED — Status of a C pointer

Description:

C_ASSOCIATED(c_ptr_1[, c_ptr_2]) determines the status of the C pointer c_ptr_1 or if c_ptr_1 is associated with the target c_ptr_2.

Standard:

Fortran 2003 and later

Class:

Inquiry function

Syntax:

RESULT = C_ASSOCIATED(c_ptr_1[, c_ptr_2])

Arguments:
c_ptr_1 Scalar of the type C_PTR or C_FUNPTR.
c_ptr_2 (Optional) Scalar of the same type as c_ptr_1.
Return value:

The return value is of type LOGICAL; it is .false. if either c_ptr_1 is a C NULL pointer or if c_ptr1 and c_ptr_2 point to different addresses.

Example:
subroutine association_test(a,b)
  use iso_c_binding, only: c_associated, c_loc, c_ptr
  implicit none
  real, pointer :: a
  type(c_ptr) :: b
  if(c_associated(b, c_loc(a))) &
     stop 'b and a do not point to same target'
end subroutine association_test
See also:

C_LOC, C_FUNLOC

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-7.1.0/gfortran/C_005fASSOCIATED.html