From 4f8725d4e67473ffd6180b2847f5388577102e07 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 26 Oct 2005 13:02:00 +0200 Subject: re PR fortran/15586 (gfortran should support i18n in its compiler messages) PR fortran/15586 * resolve.c (resolve_symbol): Remove the use of whynot, so that error messages are not built from pieces. From-SVN: r105921 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 44 ++++++++++++++++++++++++++------------------ 2 files changed, 32 insertions(+), 18 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2cfea316984..3632e9eb8b0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2005-10-26 Francois-Xavier Coudert + + PR fortran/15586 + * resolve.c (resolve_symbol): Remove the use of whynot, so that + error messages are not built from pieces. + 2005-10-26 Paul Thomas PR fortran/24158 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 03206bbd3a0..f6fb2b0f838 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4181,8 +4181,7 @@ resolve_symbol (gfc_symbol * sym) /* Zero if we are checking a formal namespace. */ static int formal_ns_flag = 1; int formal_ns_save, check_constant, mp_flag; - int i; - const char *whynot; + int i, flag; gfc_namelist *nl; gfc_symtree * symtree; gfc_symtree * this_symtree; @@ -4463,17 +4462,10 @@ resolve_symbol (gfc_symbol * sym) { case FL_VARIABLE: /* Can the sybol have an initializer? */ - whynot = NULL; - if (sym->attr.allocatable) - whynot = _("Allocatable"); - else if (sym->attr.external) - whynot = _("External"); - else if (sym->attr.dummy) - whynot = _("Dummy"); - else if (sym->attr.intrinsic) - whynot = _("Intrinsic"); - else if (sym->attr.result) - whynot = _("Function Result"); + flag = 0; + if (sym->attr.allocatable || sym->attr.external || sym->attr.dummy + || sym->attr.intrinsic || sym->attr.result) + flag = 1; else if (sym->attr.dimension && !sym->attr.pointer) { /* Don't allow initialization of automatic arrays. */ @@ -4484,22 +4476,38 @@ resolve_symbol (gfc_symbol * sym) || sym->as->upper[i] == NULL || sym->as->upper[i]->expr_type != EXPR_CONSTANT) { - whynot = _("Automatic array"); + flag = 1; break; } } } /* Reject illegal initializers. */ - if (sym->value && whynot) + if (sym->value && flag) { - gfc_error ("%s '%s' at %L cannot have an initializer", - whynot, sym->name, &sym->declared_at); + if (sym->attr.allocatable) + gfc_error ("Allocatable '%s' at %L cannot have an initializer", + sym->name, &sym->declared_at); + else if (sym->attr.external) + gfc_error ("External '%s' at %L cannot have an initializer", + sym->name, &sym->declared_at); + else if (sym->attr.dummy) + gfc_error ("Dummy '%s' at %L cannot have an initializer", + sym->name, &sym->declared_at); + else if (sym->attr.intrinsic) + gfc_error ("Intrinsic '%s' at %L cannot have an initializer", + sym->name, &sym->declared_at); + else if (sym->attr.result) + gfc_error ("Function result '%s' at %L cannot have an initializer", + sym->name, &sym->declared_at); + else + gfc_error ("Automatic array '%s' at %L cannot have an initializer", + sym->name, &sym->declared_at); return; } /* Assign default initializer. */ - if (sym->ts.type == BT_DERIVED && !(sym->value || whynot) + if (sym->ts.type == BT_DERIVED && !(sym->value || flag) && !sym->attr.pointer) sym->value = gfc_default_initializer (&sym->ts); break; -- cgit v1.2.3