1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2014 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
12 static char MTEST_Descrip[] = "Test set_view with DISPLACEMENT_CURRENT";
15 int main(int argc, char *argv[])
25 MTest_Init(&argc, &argv);
27 /* This test reads a header then sets the view to every "size" int,
28 * using set view and current displacement. The file is first written
29 * using a combination of collective and ordered writes */
31 comm = MPI_COMM_WORLD;
32 err = MPI_File_open(comm, (char *) "test.ord",
33 MPI_MODE_WRONLY | MPI_MODE_CREATE, MPI_INFO_NULL, &fh);
36 MTestPrintErrorMsg("Open(1)", err);
38 MPI_Comm_size(comm, &size);
39 MPI_Comm_rank(comm, &rank);
40 buf = (int *) malloc(size * sizeof(int));
42 err = MPI_File_iwrite_all(fh, buf, 1, MPI_INT, &request);
45 MTestPrintErrorMsg("Iwrite_all", err);
47 err = MPI_Wait(&request, &status);
50 MTestPrintErrorMsg("Wait", err);
53 err = MPI_File_get_position(fh, &offset);
56 MTestPrintErrorMsg("Get_position", err);
58 err = MPI_File_seek_shared(fh, offset, MPI_SEEK_SET);
61 MTestPrintErrorMsg("Seek_shared", err);
64 err = MPI_File_write_ordered(fh, buf, 1, MPI_INT, &status);
67 MTestPrintErrorMsg("Write_ordered", err);
69 err = MPI_File_close(&fh);
72 MTestPrintErrorMsg("Close(1)", err);
75 /* Reopen the file as sequential */
76 err = MPI_File_open(comm, (char *) "test.ord",
77 MPI_MODE_RDONLY | MPI_MODE_SEQUENTIAL |
78 MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh);
81 MTestPrintErrorMsg("Open(Read)", err);
85 err = MPI_File_read_shared(fh, buf, 1, MPI_INT, &status);
88 MTestPrintErrorMsg("Read_all", err);
92 fprintf(stderr, "Unexpected value for the header = %d, should be %d\n", buf[0], size);
97 /* All processes must provide the same file view for MODE_SEQUENTIAL */
98 /* See MPI 2.1, 13.3 - DISPLACEMENT_CURRENT is *required* for
99 * MODE_SEQUENTIAL files */
100 err = MPI_File_set_view(fh, MPI_DISPLACEMENT_CURRENT, MPI_INT,
101 MPI_INT, (char *) "native", MPI_INFO_NULL);
104 MTestPrintErrorMsg("Set_view (DISPLACEMENT_CURRENT)", err);
107 err = MPI_File_read_ordered(fh, buf, 1, MPI_INT, &status);
110 MTestPrintErrorMsg("Read_all", err);
112 if (buf[0] != rank) {
114 fprintf(stderr, "%d: buf[0] = %d\n", rank, buf[0]);
119 err = MPI_File_close(&fh);
122 MTestPrintErrorMsg("Close(2)", err);
125 MTest_Finalize(errs);