fixed warnings in pio_rearr.F90.in, some warnings from pio_decomp_fra…

…me_tests.F90.in

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

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