diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-09-01 19:05:47 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-09-01 19:05:47 +0200 |
| commit | a88280cff3436d0b6ab454514e5a3b97a543e9a5 (patch) | |
| tree | 5a469663660a7b2796f74327ff569cf3f484c426 /gcc/fortran/resolve.c | |
| parent | 7a6f40d0452ec76e126c2612dcfa32f3c73e2315 (diff) | |
| download | gcc-a88280cff3436d0b6ab454514e5a3b97a543e9a5.zip gcc-a88280cff3436d0b6ab454514e5a3b97a543e9a5.tar.gz gcc-a88280cff3436d0b6ab454514e5a3b97a543e9a5.tar.bz2 | |
Fortran - improve wording of error message
gcc/fortran/ChangeLog:
PR fortran/56985
* resolve.c (resolve_common_vars): Fix grammar and improve wording
of error message rejecting an unlimited polymorphic in COMMON.
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index d7aa286..8e5ed1c 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) |