Appropriatly size message string, preventing overflow.

esmf-org · Oct 22, 2023 · 53028df · 53028df
1 parent 69098df
commit 53028df
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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(:,:)