[gcc r13-4597] fortran/openmp.cc: Remove 's' that slipped in during %<..%> replacement

[gcc r13-4597] fortran/openmp.cc: Remove 's' that slipped in during %<..%> replacement

[Tobias Burnus]

https://gcc.gnu.org/g:045592f665bcb67b75dc6b86badbe2fd44aed3e6

commit r13-4597-g045592f665bcb67b75dc6b86badbe2fd44aed3e6
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Sun Dec 11 11:47:55 2022 +0100

    fortran/openmp.cc: Remove 's' that slipped in during %<..%> replacement
    
    Seemingly, 's' (in VI that's the 's'ubstitute command) appeared verbatim in
    a gfc_error message when to doing the '...' to %<...%> replacements in commit
    r13-4590-g84f6f8a2a97f88be01e223c9c9dbab801a4f501f
    
    gcc/fortran/
            * openmp.cc (gfc_match_omp_context_selector_specification):
            Remove spurious 's' in an error message.

Diff:
---
 gcc/fortran/openmp.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc
index 7edc78ad0cb..686f924b47a 100644
--- a/gcc/fortran/openmp.cc
+++ b/gcc/fortran/openmp.cc
@@ -5568,7 +5568,7 @@ gfc_match_omp_context_selector_specification (gfc_omp_declare_variant *odv)
 
       if (m != MATCH_YES || i == selector_set_count)
 	{
-	  gfc_error ("expected %<constructs%>, %<device%>, %<implementation%> "
+	  gfc_error ("expected %<construct%>, %<device%>, %<implementation%> "
 		     "or %<user%> at %C");
 	  return MATCH_ERROR;
 	}