comm = MPI_COMM_WORLD;
MPI_File_open( comm, (char*)"/scratch/testfile", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh );
MPI_Comm_size( comm, &size );
comm = MPI_COMM_WORLD;
MPI_File_open( comm, (char*)"/scratch/testfile", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh );
MPI_Comm_size( comm, &size );
memset( &status, 0xff, sizeof(MPI_Status) );
MPI_File_write_shared( fh, buf, 1, MPI_INT, &status );
MPI_Get_count( &status, MPI_INT, &count );
memset( &status, 0xff, sizeof(MPI_Status) );
MPI_File_write_shared( fh, buf, 1, MPI_INT, &status );
MPI_Get_count( &status, MPI_INT, &count );
memset( &status, 0xff, sizeof(MPI_Status) );
MPI_File_read_shared( fh, buf, 1, MPI_INT, &status );
MPI_Get_count( &status, MPI_INT, &count );
memset( &status, 0xff, sizeof(MPI_Status) );
MPI_File_read_shared( fh, buf, 1, MPI_INT, &status );
MPI_Get_count( &status, MPI_INT, &count );