This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [G95] External references
- From: "HUANG Chun" <chunhuang73 at hotmail dot com>
- To: paul at nowt dot org, Tobias dot Schlueter at physik dot uni-muenchen dot de, sfilippone at uniroma2 dot it
- Cc: kargls at comcast dot net, fortran at gcc dot gnu dot org
- Date: Fri, 28 Nov 2003 15:30:32 +0800
- Subject: Re: [G95] External references
- Bcc:
Hi,
I made a mistake in last message. The error can be avoided by checking
"if_source" attribute as following:
*** trans-decl.c.old Fri Nov 28 10:54:36 2003
--- trans-decl.c Fri Nov 28 15:08:32 2003
*************** gfc_sym_mangled_function_id (gfc_symbol
*** 291,297 ****
int has_underscore;
char name[GFC_MAX_MANGLED_SYMBOL_LEN + 1];
! if (sym->module[0] == 0 || sym->attr.proc == PROC_EXTERNAL)
{
if (strcmp (sym->name, "MAIN__") == 0
|| sym->attr.proc == PROC_INTRINSIC)
--- 291,298 ----
int has_underscore;
char name[GFC_MAX_MANGLED_SYMBOL_LEN + 1];
! if (sym->module[0] == 0 || sym->attr.proc == PROC_EXTERNAL
! || (sym->module[0] != 0 && sym->attr.if_source == IFSRC_IFBODY))
{
if (strcmp (sym->name, "MAIN__") == 0
|| sym->attr.proc == PROC_INTRINSIC)
Huang Chun
_________________________________________________________________
与联机的朋友进行交流，请使用 MSN Messenger: http://messenger.msn.com/cn