|||
PROGRAM test
IMPLICIT NONE
INTEGER(kind=4), DIMENSION(:), POINTER :: a
LOGICAL :: allocat
INTEGER(kind=4) :: n = 10
allocat = .FALSE.
IF (ASSOCIATED(a)) THEN
IF (SIZE(a) /= n) THEN
DEALLOCATE(a)
allocat = .TRUE.
END IF
ELSE
allocat = .TRUE.
END IF
WRITE(*,*) 'Size of a: ', SIZE(a)
IF (allocat) THEN
ALLOCATE(a(n))
END IF
WRITE(*,*) 'Size of a: ', SIZE(a)
DEALLOCATE(a)
WRITE(*,*) 'Size of a: ', SIZE(a)
END PROGRAM test
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-20 01:35
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社