From eb23c9f03ca9813d96b8274c8ce3ac11dfe26c0c Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Fri, 28 Aug 2020 11:07:25 -0600 Subject: [PATCH] fixing order of chunksizes --- tests/unit/ftst_vars_chunking.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/unit/ftst_vars_chunking.F90 b/tests/unit/ftst_vars_chunking.F90 index 2d5864f962d..af04112d5fa 100644 --- a/tests/unit/ftst_vars_chunking.F90 +++ b/tests/unit/ftst_vars_chunking.F90 @@ -78,12 +78,12 @@ program ftst_vars_chunking ret_val = PIO_openfile(pio_iosystem, pio_file, iotype(iotype_idx), filename, PIO_nowrite) if (ierr .ne. PIO_NOERR) stop 23 - ! ! Find var chunksizes. + ! Find var chunksizes using varid. ret_val = PIO_inq_var_chunking(pio_file, 1, storage_in, chunksizes_in) if (ierr .ne. PIO_NOERR) stop 25 if (chunksizes_in(1) .ne. chunksize1) stop 26 if (chunksizes_in(2) .ne. chunksize2) stop 26 - + ! Close the file. call PIO_closefile(pio_file)