forums.silverfrost.com

[MarzAttax]

Similar to my previous post, this code is illustrative only.
Please review the following "code".

=============================================

Module A

Type stFerret
Integer*4, Pointer :: iTeeth(
End Type

Type stZoo
Type(stFerret) pstFerret
End Type

Type(stZoo) pstZoo

End Module A

=============================================

Module B

USE Module A

Type(stFerret), Pointer :: pstFerretL

pstFerretL => pstZoo%pstFerret%iTeeth
If(.NOT.ASSOCIATED(pstFerretL)) Then
Do Something
Endif

End Module B

=============================================

My question is:
Does the code see if the pointer (pstFerretL) is ASSOCIATED?

or

As I intend, does the code see if pstZoo%pstFerret%iTeeth is ASSOCIATED?

Again, I appreciated any help on this.

Bri