diff --git a/test_fms/coupler/test_atmos_ocean_fluxes.F90 b/test_fms/coupler/test_atmos_ocean_fluxes.F90
index 742ac4c50..7eb50880d 100644
--- a/test_fms/coupler/test_atmos_ocean_fluxes.F90
+++ b/test_fms/coupler/test_atmos_ocean_fluxes.F90
@@ -106,7 +106,8 @@ subroutine test_aof_set_coupler_flux
 
     character(100) :: cresults, thelist
     real(FMS_CP_TEST_KIND_) :: rresults, rresults2(num_bcs)
-    integer :: i, success, n
+    integer :: i, n
+    logical :: success
 
     write(*,*) "*** TEST_AOF_SET_COUPLER_FLUX ***"