Message ID | trinity-6b6a1ac6-5c95-4338-be64-d4cebf97a3c6-1630434656422@3c-app-gmx-bs53 |
---|---|
State | New |
Headers | show |
Series | PR fortran/56985 - gcc/fortran/resolve.c:920: "'%s' in cannot appear in COMMON ..." | expand |
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index f641d0d4dae..8e5ed1c032c 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -979,7 +979,7 @@ resolve_common_vars (gfc_common_head *common_block, bool named_common) } if (UNLIMITED_POLY (csym)) - gfc_error_now ("%qs in cannot appear in COMMON at %L " + gfc_error_now ("%qs at %L cannot appear in COMMON " "[F2008:C5100]", csym->name, &csym->declared_at); if (csym->ts.type != BT_DERIVED)