From 917971706faf51ccb0c7e369e139dbd63c3160a7 Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Sat, 13 Apr 2019 13:32:49 +0200 Subject: [PATCH] re PR fortran/79842 (i18n: subword translation in "Can't use the same %smodule") 2019-04-13 Dominique d'Humieres PR fortran/79842 * module.c (gfc_use_module): use complete sentences. From-SVN: r270338 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/module.c | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 69e9009d250..ef6200c6519 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2019-04-13 Dominique d'Humieres + + PR fortran/79842 + * module.c (gfc_use_module): use complete sentences. + 2019-04-11 Thomas Koenig PR translation/89939 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 3d4b17b599e..3e1ffedd8ee 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -7144,8 +7144,12 @@ gfc_use_module (gfc_use_list *module) for (p = gfc_state_stack; p; p = p->previous) if ((p->state == COMP_MODULE || p->state == COMP_SUBMODULE) && strcmp (p->sym->name, module_name) == 0) - gfc_fatal_error ("Cannot USE the same %smodule we're building", - p->state == COMP_SUBMODULE ? "sub" : ""); + { + if (p->state == COMP_SUBMODULE) + gfc_fatal_error ("Cannot USE a submodule that is currently built"); + else + gfc_fatal_error ("Cannot USE a module that is currently built"); + } init_pi_tree (); init_true_name_tree (); -- 2.30.2