Hi,
I would like to check that some pointers have been correctly associated with allocated arrays.
In the following example:
PROGRAM test
IMPLICIT NONE
INTEGER, ALLOCATABLE, TARGET :: a(:)
INTEGER, POINTER :: pa(:)
pa=>a !a is not allocated
PRINT*, ASSOCIATED(pa)
END PROGRAM test
is it garantee that "ASSOCIATED(pa)" will retrun False when "a" is not allocated ?
Thanks,
Xavier
|