integer, dimension(:), pointer :: array
  allocate(array(100))