diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-18 09:01:21 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-18 09:01:21 +0000 |
| commit | 3cefe7ff3b59688a672c937663751c611bfb5ac7 (patch) | |
| tree | 6bf320b2bf650044576c1d8773573d6b783c181e /gcc/fortran/module.c | |
| parent | 27ed7650debf12b87a76091b7a80998e234ba66e (diff) | |
| download | gcc-3cefe7ff3b59688a672c937663751c611bfb5ac7.tar.gz | |
2011-07-18 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 176387 using svnmerge.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@176388 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 4afe4672db8..b62ad8d08e0 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -4278,6 +4278,13 @@ check_for_ambiguous (gfc_symbol *st_sym, pointer_info *info) module_locus locus; symbol_attribute attr; + if (st_sym->ns->proc_name && st_sym->name == st_sym->ns->proc_name->name) + { + gfc_error ("'%s' of module '%s', imported at %C, is also the name of the " + "current program unit", st_sym->name, module_name); + return true; + } + rsym = info->u.rsym.sym; if (st_sym == rsym) return false; |