!NOTE
!swap PrgEnv-gnu PrgEnv-cray

PROGRAM checkmove
IMPLICIT NONE
INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(12)
INTEGER :: thesize,i
INTEGER, ALLOCATABLE :: myintarr(:)

thesize = 100000000
ALLOCATE(myintarr(thesize))

DO i=1,10000
  CALL Expand1IntArray(myintarr,thesize)
END DO

CONTAINS

    SUBROUTINE Expand1IntArray(intarr,newsize)

      INTEGER, ALLOCATABLE :: intarr(:), workarr(:)
      INTEGER :: newsize

      ALLOCATE(workarr(newsize))
      workarr = 0

      CALL MOVE_ALLOC(workarr, intarr)

    END SUBROUTINE Expand1IntArray

END PROGRAM checkmove