-C -*- Mode: Fortran; -*-
+C -*- Mode: Fortran; -*-
C
C (C) 2003 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
include 'addsize.h'
errs = 0
-
+
call mtest_init( ierr )
call mpi_comm_size( MPI_COMM_WORLD, commsize, ierr )
-C Create a window; then extract the values
+C Create a window; then extract the values
asize = 1024
disp = 4
- call MPI_Win_create( base, asize, disp, MPI_INFO_NULL,
+ call MPI_Win_create( base, asize, disp, MPI_INFO_NULL,
& MPI_COMM_WORLD, win, ierr )
C
C In order to check the base, we need an address-of function.
errs = errs + 1
print *, "Could not get WIN_BASE"
C
-C There is no easy way to get the actual value of base to compare
-C against. MPI_Address gives a value relative to MPI_BOTTOM, which
+C There is no easy way to get the actual value of base to compare
+C against. MPI_Address gives a value relative to MPI_BOTTOM, which
C is different from 0 in Fortran (unless you can define MPI_BOTTOM
C as something like %pointer(0)).
C else
C call MPI_Address( base, baseadd, ierr )
C if (valout .ne. baseadd) then
C errs = errs + 1
-C print *, "Got incorrect value for WIN_BASE (", valout,
+C print *, "Got incorrect value for WIN_BASE (", valout,
C & ", should be ", baseadd, ")"
C endif
endif
else
if (valout .ne. asize) then
errs = errs + 1
- print *, "Got incorrect value for WIN_SIZE (", valout,
+ print *, "Got incorrect value for WIN_SIZE (", valout,
& ", should be ", asize, ")"
endif
endif
else
if (valout .ne. disp) then
errs = errs + 1
- print *, "Got wrong value for WIN_DISP_UNIT (", valout,
+ print *, "Got wrong value for WIN_DISP_UNIT (", valout,
& ", should be ", disp, ")"
endif
endif