turned pnetcdf testing back on for test_intercomm.c

E3SM-Project · Jun 4, 2016 · e42ad0b · e42ad0b
1 parent 4e50dd0
commit e42ad0b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -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};