fortran数组与指针浅谈一

Program vp
    implicit none 
    integer, target  :: x(5) = [1,2,3,4,5]
    integer, pointer :: p(:) => null()
    
    p => x  !.. 指针指向数组x
    print*, p(1)
    p(-1:) => p  !.. 改变下标范围
    print*, p(1), size(p)

End program vp