1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
! This file created from f77/rma/wingroupf.f with f77tof90
!
! Copyright (C) by Argonne National Laboratory
! See COPYRIGHT in top-level directory
!
program main
use mpi
integer ierr, errs
integer buf(10)
integer comm, group1, group2, result, win, intsize
logical mtestGetIntraComm
integer (kind=MPI_ADDRESS_KIND) asize
errs = 0
call mtest_init( ierr )
call mpi_type_size( MPI_INTEGER, intsize, ierr )
do while( mtestGetIntraComm( comm, 2, .false. ) )
asize = 10
call mpi_win_create( buf, asize, intsize, &
& MPI_INFO_NULL, comm, win, ierr )
call mpi_comm_group( comm, group1, ierr )
call mpi_win_get_group( win, group2, ierr )
call mpi_group_compare( group1, group2, result, ierr )
if (result .ne. MPI_IDENT) then
errs = errs + 1
print *, ' Did not get the ident groups'
endif
call mpi_group_free( group1, ierr )
call mpi_group_free( group2, ierr )
call mpi_win_free( win, ierr )
call mtestFreeComm( comm )
enddo
!
call mtest_finalize( errs )
end
|
