! This file created from test/mpi/f77/rma/c2f2cwinf.f with f77tof90
-! -*- Mode: Fortran; -*-
+! -*- Mode: Fortran; -*-
!
! (C) 2003 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
-!
+!
! Test just MPI-RMA
!
program main
! 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_finalize( ierr )
end
-
+