! This file created from test/mpi/f77/datatype/hindex1f.f with f77tof90
-! -*- Mode: Fortran; -*-
+! -*- Mode: Fortran; -*-
!
!
! (C) 2011 by Argonne National Laboratory.
integer inbuf(bufsize), outbuf(bufsize), packbuf(bufsize)
integer position, len, psize
!
-! Test for hindexed;
-!
+! 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_hindexed( 10, counts, displs, MPI_INTEGER, dtype, &
- & ierr )
+ & ierr )
call mpi_type_commit( dtype, ierr )
!
call mpi_pack_size( 1, dtype, MPI_COMM_WORLD, psize, ierr )
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