! This file created from test/mpi/f77/rma/c2f2cwinf.f with f77tof90

! -*- Mode: Fortran; -*- 

!

!  (C) 2003 by Argonne National Laboratory.

!      See COPYRIGHT in top-level directory.

!   

! Test just MPI-RMA

!

      program main

      use mpi

      integer errs, toterrs, ierr

      integer wrank, wsize

      integer wgroup, info, req, win

      integer result

      integer c2fwin

! The integer asize must be of ADDRESS_KIND size

      integer (kind=MPI_ADDRESS_KIND) asize

      errs = 0

      call mpi_init( ierr )

!

! Test passing a Fortran MPI object to C

      call mpi_comm_rank( MPI_COMM_WORLD, wrank, ierr )

      asize = 0

      call mpi_win_create( 0, asize, 1, MPI_INFO_NULL,  &

      &     MPI_COMM_WORLD, win, ierr )

      errs = errs + c2fwin( win )

      call mpi_win_free( win, ierr )

!

! Test using a C routine to provide the Fortran handle

      call f2cwin( win )

!     no info, in comm world, created with no memory (base address 0,

!     displacement unit 1

      call mpi_win_free( win, ierr )

!

! Summarize the errors

!

      call mpi_allreduce( errs, toterrs, 1, MPI_INTEGER, MPI_SUM, &

      &     MPI_COMM_WORLD, ierr )

      if (wrank .eq. 0) then

         if (toterrs .eq. 0) then

            print *, ' No Errors'

         else

            print *, ' Found ', toterrs, ' errors'

         endif

      endif

      call mpi_finalize( ierr )

      end