!! check whether memory leak is detected
!! on pointer assignment with ALLOCATE
      program leak
      real, pointer :: pr(:)
      real a
      allocate(pr(500000))
      pr = 1.
      a = pr(1)
      allocate(pr(500000))
      pr = 1.
      a = pr(1)
      nullify(pr)
      end