romio/test/misc.c.in

14 static void handle_error(int errcode, const char *str)  argument
18     MPI_Error_string(errcode, msg, &resultlen);
33     int errcode = 0;  local
63     errcode = MPI_File_open(MPI_COMM_WORLD, filename,
65     if (errcode != MPI_SUCCESS) {
66         handle_error(errcode, "MPI_File_open");
69     errcode = MPI_File_write(fh, buf, 1024, MPI_INT, &status);
70     if (errcode != MPI_SUCCESS) {
71         handle_error(errcode, "MPI_File_write");
74     errcode = MPI_File_sync(fh);
75     if (errcode != MPI_SUCCESS) {
76         handle_error(errcode, "MPI_File_sync");
79     errcode = MPI_File_get_amode(fh, &amode);
80     if (errcode != MPI_SUCCESS) {
81         handle_error(errcode, "MPI_File_get_amode");
92     errcode = MPI_File_get_atomicity(fh, &flag);
93     if (errcode != MPI_SUCCESS) {
94         handle_error(errcode, "MPI_File_get_atomicity");
104     errcode = MPI_File_set_atomicity(fh, 1);
105     if (errcode != MPI_SUCCESS) {
106         handle_error(errcode, "MPI_File_set_atomicity");
108     errcode = MPI_File_get_atomicity(fh, &flag);
109     if (errcode != MPI_SUCCESS) {
110         handle_error(errcode, "MPI_File_get_atomicity");
116     errcode = MPI_File_set_atomicity(fh, 0);
117     if (errcode != MPI_SUCCESS) {
118         handle_error(errcode, "MPI_File_set_atomicity");
128     errcode = MPI_File_set_view(fh, 1000, MPI_INT, newtype, "native", MPI_INFO_NULL);
129     if (errcode != MPI_SUCCESS) {
130         handle_error(errcode, "MPI_File_set_view");
136     errcode = MPI_File_get_view(fh, &disp, &etype, &filetype, datarep);
137     if (errcode != MPI_SUCCESS) {
138         handle_error(errcode, "MPI_File_get_view");
148     errcode = MPI_File_get_byte_offset(fh, 10, &disp);
149     if (errcode != MPI_SUCCESS) {
150         handle_error(errcode, "MPI_File_get_byte_offset");
158     errcode = MPI_File_get_group(fh, &group);
159     if (errcode != MPI_SUCCESS) {
160         handle_error(errcode, "MPI_File_get_group");
166     errcode = MPI_File_set_size(fh, 1000 + 15 * sizeof(int));
167     if (errcode != MPI_SUCCESS) {
168         handle_error(errcode, "MPI_File_set_size");
171     errcode = MPI_File_sync(fh);
172     if (errcode != MPI_SUCCESS) {
173         handle_error(errcode, "MPI_File_sync");
175     errcode = MPI_File_get_size(fh, &disp);
176     if (errcode != MPI_SUCCESS) {
177         handle_error(errcode, "MPI_File_get_size");
188     errcode = MPI_File_seek(fh, 0, MPI_SEEK_END);
189     if (errcode != MPI_SUCCESS) {
190         handle_error(errcode, "MPI_File_seek");
192     errcode = MPI_File_get_position(fh, &disp);
193     if (errcode != MPI_SUCCESS) {
194         handle_error(errcode, "MPI_File_get_position");
204     errcode = MPI_File_get_byte_offset(fh, disp, &offset);
205     if (errcode != MPI_SUCCESS) {
206         handle_error(errcode, "MPI_File_get_byte_offset");
219     errcode = MPI_File_seek(fh, -10, MPI_SEEK_CUR);
220     if (errcode != MPI_SUCCESS) {
221         handle_error(errcode, "MPI_File_seek");
223     errcode = MPI_File_get_position(fh, &disp);
224     if (errcode != MPI_SUCCESS) {
225         handle_error(errcode, "MPI_File_get_position");
227     errcode = MPI_File_get_byte_offset(fh, disp, &offset);
228     if (errcode != MPI_SUCCESS) {
229         handle_error(errcode, "MPI_File_get_byte_offset");
239     errcode = MPI_File_preallocate(fh, 8192);
240     if (errcode != MPI_SUCCESS) {
241         handle_error(errcode, "MPI_File_Preallocate");