program tstps
      implicit none
      character(len=80) :: command
      integer :: istat,i,j,ier
      integer,external :: ishell
      real data(100,100)
      real,pointer :: ptr(:,:)
!
      do i=1,100
        do j=1,100
          data(i,j) = float(i)/float(j)
        enddo
      enddo
!
! ps -w for wide listing, includes himem:
!     write(command,"('ps -w')") 
      command = 'ps -o comm,himem'
!
      write(6,"(/,'Before allocate:')")
      istat = ishell(command)
!
      allocate(ptr(100,100),stat=ier) 
      write(6,"(/,'After allocate:')")
      istat = ishell(command)
!
      end program tstps