diff --git a/flang/lib/Semantics/check-declarations.cpp b/flang/lib/Semantics/check-declarations.cpp
index 636410d7bf60b..d9c13df031ca2 100644
--- a/flang/lib/Semantics/check-declarations.cpp
+++ b/flang/lib/Semantics/check-declarations.cpp
@@ -798,7 +798,7 @@ void CheckHelper::CheckArraySpec(
   std::optional<parser::MessageFixedText> msg;
   if (symbol.test(Symbol::Flag::CrayPointee) && !isExplicit &&
       !canBeAssumedSize) {
-    msg = "Cray pointee '%s' must have must have explicit shape or"
+    msg = "Cray pointee '%s' must have explicit shape or"
           " assumed size"_err_en_US;
   } else if (IsAllocatableOrPointer(symbol) && !canBeDeferred &&
       !isAssumedRank) {
diff --git a/flang/test/Semantics/resolve61.f90 b/flang/test/Semantics/resolve61.f90
index 5223614b21702..73f6ccbf96669 100644
--- a/flang/test/Semantics/resolve61.f90
+++ b/flang/test/Semantics/resolve61.f90
@@ -40,12 +40,12 @@ subroutine p6
 end
 
 subroutine p7
-  !ERROR: Cray pointee 'b' must have must have explicit shape or assumed size
+  !ERROR: Cray pointee 'b' must have explicit shape or assumed size
   pointer(a, b(:))
 contains
   subroutine s(x, y)
     real :: x(*)  ! assumed size
-    !ERROR: Cray pointee 'y' must have must have explicit shape or assumed size
+    !ERROR: Cray pointee 'y' must have explicit shape or assumed size
     real :: y(:)  ! assumed shape
     pointer(w, y)
   end