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