ASSOCIATED文
ASSOCIATED文
ポインタが指示先と結合しているかどうかを調べる文である。指示先を 省略したときでポインタが空状態でないときは.TRUE.,そうでないときは .FALSE.を戻す。
指示先を指定したときでポインタが指定した指示先と 結合しているときは.TRUE.,そうでないときは.FALSE.を戻す。
ASSOCIATED(ポインタ,[指示先])
[例]
ポインタptrが空状態であるかどうかを調べる。
ASSOCIATED(ptr)
[例]
ptrが空状態であるとき、
EXIT
文を実行する。
IF
(.NOT. ASSOCIATED(ptr))
EXIT