fixed warnings in pio_decomp_tests_2d.F90.in

rfiorella · Jun 25, 2019 · 3537624 · 3537624
1 parent 32aaa7b
commit 3537624
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/general/pio_decomp_tests_2d.F90.in b/tests/general/pio_decomp_tests_2d.F90.in
@@ -167,7 +167,7 @@ PIO_TF_AUTO_TEST_SUB_BEGIN nc_write_read_2d_col_decomp
   PIO_TF_FC_DATA_TYPE, dimension(:,:), allocatable :: rbuf, wbuf, exp_val
   integer, dimension(NDIMS) :: dims
   integer, dimension(NDIMS) :: pio_dims
-  integer :: i, j, tmp_idx, ierr, lsz, nrows, ncols
+  integer :: i, j, tmp_idx, ierr, nrows, ncols
   ! iotypes = valid io types
   integer, dimension(:), allocatable :: iotypes
   character(len=PIO_TF_MAX_STR_LEN), dimension(:), allocatable :: iotype_descs
@@ -184,7 +184,7 @@ PIO_TF_AUTO_TEST_SUB_BEGIN nc_write_read_2d_col_decomp
     do i=1,nrows
       wbuf(i,j) = (start(2) - 1 + j - 1) * nrows + i
       tmp_idx = (j - 1) * nrows + i
-      compdof(tmp_idx) = wbuf(i,j)
+      compdof(tmp_idx) = int(wbuf(i,j))
     end do
   end do
 
@@ -274,7 +274,7 @@ PIO_TF_AUTO_TEST_SUB_BEGIN nc_write_read_2d_row_decomp
   PIO_TF_FC_DATA_TYPE, dimension(:,:), allocatable :: rbuf, wbuf, exp_val
   integer, dimension(NDIMS) :: dims
   integer, dimension(NDIMS) :: pio_dims
-  integer :: i, j, tmp_idx, ierr, lsz, nrows, ncols
+  integer :: i, j, tmp_idx, ierr, nrows, ncols
   ! iotypes = valid io types
   integer, dimension(:), allocatable :: iotypes
   character(len=PIO_TF_MAX_STR_LEN), dimension(:), allocatable :: iotype_descs
@@ -291,7 +291,7 @@ PIO_TF_AUTO_TEST_SUB_BEGIN nc_write_read_2d_row_decomp
     do i=1,nrows
       wbuf(i,j) = (start(2) - 1 + j - 1) * dims(1) + start(1) + i - 1
       tmp_idx = (j - 1) * nrows + i
-      compdof(tmp_idx) = wbuf(i,j)
+      compdof(tmp_idx) = int(wbuf(i,j))
     end do
   end do