From b1dc7b252a3eddd356df9636c2d403f781b3d3f2 Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Wed, 26 Jun 2019 13:55:07 -0600 Subject: [PATCH] fixed warnings in pio_tutil.F90 --- tests/general/util/pio_tutil.F90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tests/general/util/pio_tutil.F90 b/tests/general/util/pio_tutil.F90 index 9158b9f30b1..3e1a66da4a1 100644 --- a/tests/general/util/pio_tutil.F90 +++ b/tests/general/util/pio_tutil.F90 @@ -653,6 +653,7 @@ LOGICAL FUNCTION PIO_TF_Check_int_arr_arr_tol(arr, exp_arr, tol) INTEGER, DIMENSION(:), INTENT(IN) :: arr INTEGER, DIMENSION(:), INTENT(IN) :: exp_arr REAL, INTENT(IN) :: tol + if (tol /= 0) continue ! to suppress warning PIO_TF_Check_int_arr_arr_tol = PIO_TF_Check_int_arr_arr(arr, exp_arr) END FUNCTION @@ -732,6 +733,7 @@ LOGICAL FUNCTION PIO_TF_Check_real_arr_arr_tol_(arr, exp_arr, arr_shape, tol) TYPE (failed_info) :: lfail_info TYPE (failed_info), DIMENSION(:), ALLOCATABLE :: gfail_info + if (tol /= 0) continue ! to suppress warning arr_sz = SIZE(arr) lequal = .TRUE.; gequal = .TRUE.; @@ -776,7 +778,7 @@ LOGICAL FUNCTION PIO_TF_Check_real_arr_arr_tol(arr, exp_arr, tol) REAL, INTENT(IN) :: tol PIO_TF_Check_real_arr_arr_tol = PIO_TF_Check_real_arr_arr_tol_(arr, exp_arr,& - SHAPE(arr), 0.0) + SHAPE(arr), tol) END FUNCTION LOGICAL FUNCTION PIO_TF_Check_real_arr_arr(arr, exp_arr) @@ -864,6 +866,7 @@ LOGICAL FUNCTION PIO_TF_Check_double_arr_arr_tol_(arr, exp_arr, arr_shape, tol) TYPE (failed_info) :: lfail_info TYPE (failed_info), DIMENSION(:), ALLOCATABLE :: gfail_info + if (tol /= 0) continue ! to suppress warning arr_sz = SIZE(arr) lequal = .TRUE.; gequal = .TRUE.; @@ -911,7 +914,7 @@ LOGICAL FUNCTION PIO_TF_Check_double_arr_arr_tol(arr, exp_arr, tol) REAL, INTENT(IN) :: tol PIO_TF_Check_double_arr_arr_tol = PIO_TF_Check_double_arr_arr_tol_(arr, exp_arr,& - SHAPE(arr), 0.0) + SHAPE(arr), tol) END FUNCTION LOGICAL FUNCTION PIO_TF_Check_double_arr_arr(arr, exp_arr)