diff --git a/flang/lib/semantics/resolve-names.cc b/flang/lib/semantics/resolve-names.cc
index 748604787c0f..643c384ad1f3 100644
--- a/flang/lib/semantics/resolve-names.cc
+++ b/flang/lib/semantics/resolve-names.cc
@@ -3691,9 +3691,7 @@ void DeclarationVisitor::CheckSaveStmts() {
               "'%s' appears as a COMMON block in a SAVE statement but not in"
               " a COMMON statement"_err_en_US);
         } else {  // C1108
-          Say(name,
-              "'%s' specifier is not allowed in a BLOCK Construct."
-              " It is a Common Block Name"_err_en_US);
+          Say(name,"SAVE statement in BLOCK construct may not contain a common block name '%s'"_err_en_US);
         }
       } else {
         for (Symbol *object : symbol->get<CommonBlockDetails>().objects()) {
diff --git a/flang/test/semantics/blockconstruct02.f90 b/flang/test/semantics/blockconstruct02.f90
index 493cfd044be5..3cad73ef6f63 100644
--- a/flang/test/semantics/blockconstruct02.f90
+++ b/flang/test/semantics/blockconstruct02.f90
@@ -22,7 +22,7 @@ program  main
   !ERROR: 'argmnt1' appears as a COMMON block in a SAVE statement but not in a COMMON statement
   save /argmnt1/
   block
-    !ERROR: 'argmnt2' specifier is not allowed in a BLOCK Construct. It is a Common Block Name
+    !ERROR: SAVE statement in BLOCK construct may not contain a common block name 'argmnt2'
     save /argmnt2/
   end block
 end program