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 42 43 44 45 46 47 48 49 50 51
|
/* This file created from f77/io/c2fmultio.c with f77tof90 */
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
/*
Check that MPI_File_c2f, applied to the same object several times,
yields the same handle. We do this because when MPI handles in
C are a different length than those in Fortran, care needs to
be exercised to ensure that the mapping from one to another is unique.
(Test added to test a potential problem in ROMIO for handling MPI_File
on 64-bit systems)
*/
#include "mpi.h"
#include <stdio.h>
#include "mpitest.h"
int main(int argc, char *argv[])
{
MPI_Fint handleA, handleB;
int rc;
int errs = 0;
int rank;
MPI_File cFile;
MTest_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
/* File */
rc = MPI_File_open(MPI_COMM_WORLD, (char *) "temp",
MPI_MODE_RDWR | MPI_MODE_DELETE_ON_CLOSE | MPI_MODE_CREATE,
MPI_INFO_NULL, &cFile);
if (rc) {
errs++;
printf("Unable to open file \"temp\"\n");
} else {
handleA = MPI_File_c2f(cFile);
handleB = MPI_File_c2f(cFile);
if (handleA != handleB) {
errs++;
printf("MPI_File_c2f does not give the same handle twice on the same MPI_File\n");
}
}
MPI_File_close(&cFile);
MTest_Finalize(errs);
return MTestReturnValue(errs);
}
|