associated(3I)

NAME
     ASSOCIATED - Returns the pointer association status

SYNOPSIS
     ASSOCIATED ([POINTER=]pointer [,[TARGET=]target])

STANDARDS
     Fortran

DESCRIPTION
     The ASSOCIATED intrinsic function returns the association status of
     its pointer argument or indicates the pointer is associated with the
     target.  It accepts the following arguments:

     pointer   Must be a pointer and can be of any type.  Its pointer
               association status must not be undefined.

     target    Must be a pointer or target.  If it is a pointer, its
               pointer association status must not be undefined.

     ASSOCIATED is an inquiry function.  The name of this intrinsic cannot
     be passed as an argument.

RETURN VALUES
     The result is of type default logical.

     If target is absent, the result is true if pointer is currently
     associated with a target and false if it is not.

     If target is present and is a target, the result is true if pointer is
     currently associated with target and false if it is not.

     If target is present and is a pointer, the result is true if both
     pointer and target are currently associated with the same target, and
     is false otherwise.

     If either pointer or target is disassociated, the result is false.

     If pointer and target are both dummy arguments, the result is
     undefined.

EXAMPLES
     Example 1:  ASSOCIATED(CURRENT,HEAD) yields true if CURRENT points to
     the target HEAD.

     Example 2:  Consider the following statement:

          A_PART => A (:N)

     After the preceding statement is executed, the statement
     ASSOCIATED(A_PART,A) yields true if N is equal to UBOUND(A,DIM=1).

     Example 3:  After the execution of the following statements,
     ASSOCIATED(CUR,TOP) yields false:

          NULLIFY(CUR);  NULLIFY(TOP)