PROGRAM TEST1
  IMPLICIT NONE
  REAL, ALLOCATABLE :: a(:,:)
  INTEGER :: n
  INTEGER :: allocate_status
  n=1000
  ALLOCATE( a(n,n), STAT = allocate_status)
  IF (allocate_status /= 0) STOP "Could not allocate array"
! Do some computing
  DEALLOCATE( a )
  END PROGRAM TEST1