PROGRAM PTR_TEST1
  INTEGER, POINTER :: PTR1
  INTEGER, TARGET :: X=42, Y=114
  INTEGER :: N
  REAL, POINTER :: PTR2:wq:w
  REAL, POINTER :: PTRA(:)
! ...
  PTR1 => X    ! PTR1 points to X
  Y = PTR1     ! Y equals X
  PTR1 => Y    ! PTR1 points to Y
  PTR1 = 38    ! Y equals 38

! Dynamic memory blocks
    N = 1000
    ALLOCATE( PTR2, PTRA(N) )
! Do some computing
    DEALLOCATE(PTR2, PTRA)

  END PROGRAM PTR_TEST1