From f114fbc321093bd2fba6c4f18c01c4595bdf573c Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Fri, 28 Aug 2020 07:57:50 -0600 Subject: [PATCH] further test development --- tests/unit/ftst_vars.F90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/tests/unit/ftst_vars.F90 b/tests/unit/ftst_vars.F90 index a9f0a755011..f754efd7d40 100644 --- a/tests/unit/ftst_vars.F90 +++ b/tests/unit/ftst_vars.F90 @@ -25,7 +25,8 @@ program ftst_vars call MPI_Init(ierr) call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr) call MPI_Comm_size(MPI_COMM_WORLD, ntasks , ierr) - + +#ifdef _NETCDF4 if (my_rank .eq. 0) print *,'Testing variables...' ! Initialize PIO. @@ -53,7 +54,9 @@ program ftst_vars ! Open the file. ret_val = PIO_openfile(pio_iosystem, pio_file, iotype, filename, PIO_nowrite) - if (ierr .ne. PIO_NOERR) stop 3 + if (ierr .ne. PIO_NOERR) stop 23 + + ! Find var chunksizes. ! Close the file. call PIO_closefile(pio_file) @@ -62,5 +65,6 @@ program ftst_vars call PIO_finalize(pio_iosystem, ierr) if (my_rank .eq. 0) print *,'SUCCESS!' +#endif call MPI_Finalize(ierr) end program ftst_vars