diff --git a/tests/check_equivalence.F90 b/tests/check_equivalence.F90
index b6081d479..5a17937e8 100644
--- a/tests/check_equivalence.F90
+++ b/tests/check_equivalence.F90
@@ -430,8 +430,12 @@ program rte_check_equivalence
                             fluxes))
     if(.not. allclose(tst_flux_up, ref_flux_up, tol = 10._wp) .or. & 
        .not. allclose(tst_flux_dn, ref_flux_dn, tol = 10._wp) .or. & 
-       .not. allclose(tst_flux_dir,ref_flux_dir,tol = 10._wp)) &  
+       .not. allclose(tst_flux_dir,ref_flux_dir,tol = 10._wp)) then 
+       print *, allclose(tst_flux_up, ref_flux_up, tol = 10._wp), & 
+                allclose(tst_flux_dn, ref_flux_dn, tol = 10._wp), & 
+                allclose(tst_flux_dir,ref_flux_dir,tol = 10._wp)
       call report_err("  halving/doubling fails")
+    end if 
 
     !
     ! Incremement with 0 optical depth