From 8619790ba9d70080c173526baf3ce129cfea1c2f Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Fri, 19 Jul 2019 06:05:25 -0600 Subject: [PATCH] better error handling --- tests/fncint/ftst_pio.f90 | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/tests/fncint/ftst_pio.f90 b/tests/fncint/ftst_pio.f90 index 9f1a970a571..0709f8e3c69 100644 --- a/tests/fncint/ftst_pio.f90 +++ b/tests/fncint/ftst_pio.f90 @@ -40,28 +40,37 @@ program ftst_pio ! Define an IOSystem. ierr = nf_def_iosystem(myRank, MPI_COMM_WORLD, niotasks, numAggregator, & stride, PIO_rearr_subset, iosysid, base) + if (ierr .ne. nf_noerr) call handle_err(ierr) ! Define a decomposition. dims(1) = 3 * ntasks compdof = 3 * myRank + (/1, 2, 3/) ! Where in the global array each task writes ierr = nf_def_decomp(iosysid, PIO_int, dims, compdof, decompid) + if (ierr .ne. nf_noerr) call handle_err(ierr) ! Create a file. ierr = nf_create(FILE_NAME, 64, ncid) + if (ierr .ne. nf_noerr) call handle_err(ierr) ! Define dimensions. ierr = nf_def_dim(ncid, LAT_NAME, NLATS, lat_dimid) + if (ierr .ne. nf_noerr) call handle_err(ierr) ierr = nf_def_dim(ncid, LON_NAME, NLONS, lon_dimid) + if (ierr .ne. nf_noerr) call handle_err(ierr) ierr = nf_def_dim(ncid, REC_NAME, NF_UNLIMITED, rec_dimid) + if (ierr .ne. nf_noerr) call handle_err(ierr) data_buffer = myRank ! Close the file. ierr = nf_close(ncid) + if (ierr .ne. nf_noerr) call handle_err(ierr) ! Free resources. ierr = nf_free_decomp(decompid) + if (ierr .ne. nf_noerr) call handle_err(ierr) ierr = nf_free_iosystem() + if (ierr .ne. nf_noerr) call handle_err(ierr) ! We're done! call MPI_Finalize(ierr)