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