diff options
| author | Brooks Moses <brooks.moses@codesourcery.com> | 2006-11-16 03:05:28 +0000 |
|---|---|---|
| committer | Brooks Moses <brooks@gcc.gnu.org> | 2006-11-15 19:05:28 -0800 |
| commit | e25a0da328d0e998674c670724d5fb361f81ebae (patch) | |
| tree | d6fed4e42fc794f83d5aac91cc3162c7af15dc86 /gcc/fortran/resolve.c | |
| parent | 10612ddf52a0ff87a4d044be62de463dc0730b9a (diff) | |
| download | gcc-e25a0da328d0e998674c670724d5fb361f81ebae.zip gcc-e25a0da328d0e998674c670724d5fb361f81ebae.tar.gz gcc-e25a0da328d0e998674c670724d5fb361f81ebae.tar.bz2 | |
data.c: Remove trailing periods from error messages.
* 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.
From-SVN: r118880
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; |