From 7698a624b8b1268f4e0da54807c74833e55b667e Mon Sep 17 00:00:00 2001 From: brooks Date: Thu, 16 Nov 2006 03:05:28 +0000 Subject: * data.c: Remove trailing periods from error messages. * decl.c: Likewise. * expr.c: Likewise. * io.c: Likewise. * match.c: Likewise. * module.c: Likewise. * options.c: Likewise. * resolve.c: Likewise. * symbol.c: Likewise. * trans-io.c: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118880 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/resolve.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 49d80d9a19b..a0e8838eef6 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; -- cgit v1.2.3