diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5d5ca78..6db0f1e 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4432,18 +4432,18 @@ resolve_symbol (gfc_symbol * sym) if (sym->attr.allocatable) { if (sym->attr.dimension) - gfc_error ("Allocatable array at %L must have a deferred shape", - &sym->declared_at); + gfc_error ("Allocatable array '%s' at %L must have " + "a deferred shape", sym->name, &sym->declared_at); else - gfc_error ("Object at %L may not be ALLOCATABLE", - &sym->declared_at); + gfc_error ("Scalar object '%s' at %L may not be ALLOCATABLE", + sym->name, &sym->declared_at); return; } if (sym->attr.pointer && sym->attr.dimension) { - gfc_error ("Pointer to array at %L must have a deferred shape", - &sym->declared_at); + gfc_error ("Array pointer '%s' at %L must have a deferred shape", + sym->name, &sym->declared_at); return; } @@ -4453,8 +4453,8 @@ resolve_symbol (gfc_symbol * sym) if (!mp_flag && !sym->attr.allocatable && !sym->attr.pointer && !sym->attr.dummy) { - gfc_error ("Array at %L cannot have a deferred shape", - &sym->declared_at); + gfc_error ("Array '%s' at %L cannot have a deferred shape", + sym->name, &sym->declared_at); return; } } @@ -4538,8 +4538,8 @@ resolve_symbol (gfc_symbol * sym) /* An external symbol falls through to here if it is not referenced. */ if (sym->attr.external && sym->value) { - gfc_error ("External object at %L may not have an initializer", - &sym->declared_at); + gfc_error ("External object '%s' at %L may not have an initializer", + sym->name, &sym->declared_at); return; } |