associated(3I)

NAME
     ASSOCIATED - Returns the pointer association status

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

IMPLEMENTATION
     UNICOS, UNICOS/mk, IRIX systems

     CF90, MIPSpro 7 Fortran 90

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) is 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) is true if N is equal to UBOUND(A, DIM = 1).

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

          NULLIFY (CUR);  NULLIFY (TOP)

SEE ALSO
     Intrinsic Procedures Reference Manual for the printed version of this
     man page.