From e42ad0b82544899d0a698e9286b42c4e8ab5b598 Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Sat, 4 Jun 2016 07:23:32 -0400 Subject: [PATCH] turned pnetcdf testing back on for test_intercomm.c --- tests/unit/basic_tests.F90 | 3 +-- tests/unit/test_intercomm.c | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/tests/unit/basic_tests.F90 b/tests/unit/basic_tests.F90 index 6988301e4c30..5568d7b13fef 100644 --- a/tests/unit/basic_tests.F90 +++ b/tests/unit/basic_tests.F90 @@ -286,10 +286,9 @@ Subroutine test_open(test_id, err_msg) ret_val = PIO_inq_unlimdim(pio_file, unlimdimid) if(unlimdimid /= -1) then err_msg = "Error in inq_unlimdim" - print *, "Error in inq_unlimdim ", unlimdimid call PIO_closefile(pio_file) print *,__FILE__,__LINE__,iotype, trim(err_msg) - !call mpi_abort(MPI_COMM_WORLD,0,ret_val) + call mpi_abort(MPI_COMM_WORLD,0,ret_val) end if ret_val = PIO_set_log_level(0) diff --git a/tests/unit/test_intercomm.c b/tests/unit/test_intercomm.c index 14abbcdf24b0..4b0588167d6f 100644 --- a/tests/unit/test_intercomm.c +++ b/tests/unit/test_intercomm.c @@ -384,7 +384,7 @@ main(int argc, char **argv) * and when the do, they should go straight to finalize. */ if (comp_task) { - for (int fmt = 1; fmt < NUM_NETCDF_FLAVORS; fmt++) + for (int fmt = 0; fmt < NUM_NETCDF_FLAVORS; fmt++) { int ncid, varid, dimid; PIO_Offset start[NDIM], count[NDIM] = {0};