!
! Copyright (C) by Argonne National Laboratory
!     See COPYRIGHT in top-level directory
!

! This file created from test/mpi/f77/datatype/hindex1f.f with f77tof90

      program main
      use mpi_f08
      integer errs, ierr, intsize
      integer i, counts(10)
      integer(kind=MPI_ADDRESS_KIND) displs(10)
      TYPE(MPI_Datatype) dtype
      integer bufsize
      parameter (bufsize=100)
      integer inbuf(bufsize), outbuf(bufsize), packbuf(bufsize)
      integer position, len, psize
!
!     Test for hindexed;
!
      errs = 0
      call mtest_init( ierr )

      call mpi_type_size( MPI_INTEGER, intsize, ierr )

      do i=1, 10
         displs(i) = (10-i)*intsize
         counts(i) = 1
      enddo
      call mpi_type_create_hindexed( 10, counts, displs, MPI_INTEGER, dtype, &
      &     ierr )
      call mpi_type_commit( dtype, ierr )
!
      call mpi_pack_size( 1, dtype, MPI_COMM_WORLD, psize, ierr )
      if (psize .gt. bufsize*intsize) then
         errs = errs + 1
      else
         do i=1,10
            inbuf(i)  = i
            outbuf(i) = -i
         enddo
         position = 0
         call mpi_pack( inbuf, 1, dtype, packbuf, psize, position, &
      &        MPI_COMM_WORLD, ierr )
!
         len      = position
         position = 0
         call mpi_unpack( packbuf, len, position, outbuf, 10, &
      &        MPI_INTEGER, MPI_COMM_WORLD, ierr )
!
         do i=1, 10
            if (outbuf(i) .ne. 11-i) then
               errs = errs + 1
               print *, 'outbuf(',i,')=',outbuf(i),', expected ', 10-i
            endif
         enddo
      endif
!
      call mpi_type_free( dtype, ierr )
!
      call mtest_finalize( errs )
      end
