diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 49d80d9..a0e8838 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -774,7 +774,7 @@ check_assumed_size_reference (gfc_symbol * sym, gfc_expr * e) { gfc_error ("The upper bound in the last dimension must " "appear in the reference to the assumed size " - "array '%s' at %L.", sym->name, &e->where); + "array '%s' at %L", sym->name, &e->where); return true; } return false; @@ -5640,7 +5640,7 @@ resolve_fl_derived (gfc_symbol *sym) || !gfc_is_constant_expr (c->ts.cl->length)) { gfc_error ("Character length of component '%s' needs to " - "be a constant specification expression at %L.", + "be a constant specification expression at %L", c->name, c->ts.cl->length ? &c->ts.cl->length->where : &c->loc); return FAILURE; @@ -5693,7 +5693,7 @@ resolve_fl_derived (gfc_symbol *sym) || !gfc_is_constant_expr (c->as->upper[i])) { gfc_error ("Component '%s' of '%s' at %L must have " - "constant array bounds.", + "constant array bounds", c->name, sym->name, &c->loc); return FAILURE; } @@ -5952,7 +5952,7 @@ resolve_symbol (gfc_symbol * sym) && sym->ts.derived->components == NULL) { gfc_error ("The derived type '%s' at %L is of type '%s', " - "which has not been defined.", sym->name, + "which has not been defined", sym->name, &sym->declared_at, sym->ts.derived->name); sym->ts.type = BT_UNKNOWN; return; |