diff --git a/tests/general/pio_rearr.F90.in b/tests/general/pio_rearr.F90.in index f3a28c4e128..1cddf87707a 100644 --- a/tests/general/pio_rearr.F90.in +++ b/tests/general/pio_rearr.F90.in @@ -189,7 +189,6 @@ PIO_TF_AUTO_TEST_SUB_BEGIN test_rearrs_combs character(len=PIO_TF_MAX_STR_LEN), parameter :: attname = "filename" character(len=PIO_TF_MAX_STR_LEN), parameter :: dimname = "filename_dim" integer, parameter :: NUM_REARRANGERS = 2 - integer :: rearrs(NUM_REARRANGERS) = (/pio_rearr_subset,pio_rearr_box/) integer, parameter :: MAX_PERMS = 4 integer :: rearrs_perms(NUM_REARRANGERS,MAX_PERMS) = reshape(& (/pio_rearr_subset, pio_rearr_box,& @@ -206,7 +205,6 @@ PIO_TF_AUTO_TEST_SUB_BEGIN test_rearrs_combs "PIO_REARR_BOX ", "PIO_REARR_BOX "/),& (/NUM_REARRANGERS,MAX_PERMS/)& ) - character(len=PIO_TF_MAX_STR_LEN) :: rearrs_info(NUM_REARRANGERS) = (/"PIO_REARR_SUBSET","PIO_REARR_BOX "/) integer, dimension(:), allocatable :: iotypes character(len=PIO_TF_MAX_STR_LEN), dimension(:), allocatable :: iotype_descs integer :: i, j, k, num_iotypes = 0 diff --git a/tests/general/util/pio_tutil.F90 b/tests/general/util/pio_tutil.F90 index 43717f848a7..9158b9f30b1 100644 --- a/tests/general/util/pio_tutil.F90 +++ b/tests/general/util/pio_tutil.F90 @@ -592,7 +592,6 @@ LOGICAL FUNCTION PIO_TF_Check_int_arr_arr_(arr, exp_arr, arr_shape) INTEGER :: nequal_idx ! Local and global equal bools LOGICAL :: lequal, gequal - LOGICAL :: failed TYPE failed_info SEQUENCE INTEGER :: idx @@ -724,7 +723,6 @@ LOGICAL FUNCTION PIO_TF_Check_real_arr_arr_tol_(arr, exp_arr, arr_shape, tol) REAL(KIND=fc_real) :: nequal_idx ! Local and global equal bools LOGICAL :: lequal, gequal - LOGICAL :: failed TYPE failed_info SEQUENCE REAL(KIND=fc_real) :: idx @@ -857,7 +855,6 @@ LOGICAL FUNCTION PIO_TF_Check_double_arr_arr_tol_(arr, exp_arr, arr_shape, tol) REAL(KIND=fc_double) :: nequal_idx ! Local and global equal bools LOGICAL :: lequal, gequal - LOGICAL :: failed TYPE failed_info SEQUENCE REAL(KIND=fc_double) :: idx