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/decl.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/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index ae4271c..25fa6b5 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -221,7 +221,7 @@ var_element (gfc_data_variable * new) if (!sym->attr.function && gfc_current_ns->parent && gfc_current_ns->parent == sym->ns) { gfc_error ("Host associated variable '%s' may not be in the DATA " - "statement at %C.", sym->name); + "statement at %C", sym->name); return MATCH_ERROR; } @@ -1170,7 +1170,7 @@ variable_decl (int elem) { if (sym->as != NULL) { - gfc_error ("Duplicate array spec for Cray pointee at %C."); + gfc_error ("Duplicate array spec for Cray pointee at %C"); gfc_free_array_spec (cp_as); m = MATCH_ERROR; goto cleanup; @@ -2460,7 +2460,7 @@ gfc_match_data_decl (void) /* Now we have an error, which we signal, and then fix up because the knock-on is plain and simple confusing. */ gfc_error_now ("Derived type at %C has not been previously defined " - "and so cannot appear in a derived type definition."); + "and so cannot appear in a derived type definition"); current_attr.pointer = 1; goto ok; } @@ -3536,12 +3536,12 @@ cray_pointer_decl (void) } else if (cptr->ts.type != BT_INTEGER) { - gfc_error ("Cray pointer at %C must be an integer."); + gfc_error ("Cray pointer at %C must be an integer"); return MATCH_ERROR; } else if (cptr->ts.kind < gfc_index_integer_kind) gfc_warning ("Cray pointer at %C has %d bytes of precision;" - " memory addresses require %d bytes.", + " memory addresses require %d bytes", cptr->ts.kind, gfc_index_integer_kind); @@ -3590,7 +3590,7 @@ cray_pointer_decl (void) } else if (as != NULL) { - gfc_error ("Duplicate array spec for Cray pointee at %C."); + gfc_error ("Duplicate array spec for Cray pointee at %C"); gfc_free_array_spec (as); return MATCH_ERROR; } @@ -3688,7 +3688,7 @@ gfc_match_pointer (void) if (!gfc_option.flag_cray_pointer) { gfc_error ("Cray pointer declaration at %C requires -fcray-pointer" - " flag."); + " flag"); return MATCH_ERROR; } return cray_pointer_decl (); |