This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[gfortran] [PR13155] Interface mangling in modules.


On Friday 28 November 2003 7:30 am, HUANG Chun wrote:
> Hi,
>
> I made a mistake in last message. The error can be avoided by checking
> "if_source" attribute as following:

Tested on i686 linux.
Applied to tree-ssa branch.

Paul

2003-11-30 Huang Chun <chunhuang73@hotmail.com>

	PR fortran/13155
	* trans-decl.c (gfc_sym_mangled_function_id): Don't mangle symbols
	from interfaces in modules.

2003-11-30  Paul Brook  <paul@nowt.org>

	* gfortran.fortran-torture/execute/module_interface_2.f90: New test.


> *** 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)

Attachment: module_interface_2.f90
Description: Text document


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]