diff --git a/test_fms/tracer_manager/test_tracer_manager.F90 b/test_fms/tracer_manager/test_tracer_manager.F90
index dbab8a5e2..f8697f7c0 100644
--- a/test_fms/tracer_manager/test_tracer_manager.F90
+++ b/test_fms/tracer_manager/test_tracer_manager.F90
@@ -45,7 +45,8 @@ subroutine test_set_tracer_profile
   integer, parameter :: numlevels=10
   integer, parameter :: npoints=5
 
-  integer :: tracer_index, success, i, j, k
+  integer :: tracer_index, i, j, k
+  logical :: success
   real(TEST_TM_KIND_) :: top_value, bottom_value, surf_value, multiplier
   real(TEST_TM_KIND_) :: tracer_out1(1,1,1), tracer_out2(npoints,npoints,numlevels)
   real(TEST_TM_KIND_) :: answer1(1,1,1), answer2(npoints,npoints,numlevels)