1 ! This file created from test/mpi/f77/rma/wingroupf.f with f77tof90
2 ! -*- Mode: Fortran; -*-
4 ! (C) 2003 by Argonne National Laboratory.
5 ! See COPYRIGHT in top-level directory.
11 integer comm, group1, group2, result, win, intsize
12 logical mtestGetIntraComm
13 integer (kind=MPI_ADDRESS_KIND) asize
17 call mtest_init( ierr )
19 call mpi_type_size( MPI_INTEGER, intsize, ierr )
20 do while( mtestGetIntraComm( comm, 2, .false. ) )
22 call mpi_win_create( buf, asize, intsize, &
23 & MPI_INFO_NULL, comm, win, ierr )
25 call mpi_comm_group( comm, group1, ierr )
26 call mpi_win_get_group( win, group2, ierr )
27 call mpi_group_compare( group1, group2, result, ierr )
28 if (result .ne. MPI_IDENT) then
30 print *, ' Did not get the ident groups'
32 call mpi_group_free( group1, ierr )
33 call mpi_group_free( group2, ierr )
35 call mpi_win_free( win, ierr )
36 call mtestFreeComm( comm )
39 call mtest_finalize( errs )
40 call mpi_finalize( ierr )