diff --git a/src/Infrastructure/Field/tests/ESMF_FieldCreateGetUTest.F90 b/src/Infrastructure/Field/tests/ESMF_FieldCreateGetUTest.F90
index 4178ce631a..6b57989f54 100644
--- a/src/Infrastructure/Field/tests/ESMF_FieldCreateGetUTest.F90
+++ b/src/Infrastructure/Field/tests/ESMF_FieldCreateGetUTest.F90
@@ -2655,7 +2655,7 @@ subroutine test_slicing(rc)
         integer                     :: localrc
         type(ESMF_Field)            :: field1, field2
         type(ESMF_Grid)             :: grid
-        character(80)               :: msgStrg
+        character(160)              :: msgStrg
         real(ESMF_KIND_R4), pointer :: fptr1a(:,:,:,:,:), fptr2a(:,:,:)
         real(ESMF_KIND_R4), pointer :: fptr1b(:,:,:), fptr2b(:,:)