diff --git a/src/core_test/mpas_halo_testing.F b/src/core_test/mpas_halo_testing.F
index 8ad1551989..ef1843a773 100644
--- a/src/core_test/mpas_halo_testing.F
+++ b/src/core_test/mpas_halo_testing.F
@@ -168,7 +168,7 @@ subroutine mpas_halo_tests(domain, ierr)
       end do
       end do
 
-      call mpas_halo_exch_group_full_halo_exch(domain, 'persistent_group', ierr_local)
+      call mpas_halo_exch_group_full_halo_exch(domain, 'persistent_group', iErr=ierr_local)
       ierr = ior(ierr, ierr_local)
 
       diff = 0.0_RKIND
@@ -228,7 +228,7 @@ subroutine mpas_halo_tests(domain, ierr)
       end do
       end do
 
-      call mpas_halo_exch_group_full_halo_exch(domain, 'scratch_group', ierr_local)
+      call mpas_halo_exch_group_full_halo_exch(domain, 'scratch_group', iErr=ierr_local)
       ierr = ior(ierr, ierr_local)
 
       diff = 0.0_RKIND