fixed warnings in pio_tutil.F90

jedwards4b · Jun 26, 2019 · b1dc7b2 · b1dc7b2
1 parent baf3bcb
commit b1dc7b2
Showing 1 changed file with 5 additions and 2 deletions.
diff --git 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)