OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/31609 (module that calls a contained function with an ENTRY point) 

2007-07-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/31609
	* resolve.c (generic_sym): Check for a same symbol and if so, return to
	avoid infinite recursion.

From-SVN: r127026
This commit is contained in:
Jerry DeLisle 2007-07-28 21:17:20 +00:00
parent ed339fbc91
commit 6d023ec55b
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2007-07-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31609
* resolve.c (generic_sym): Check for a same symbol and if so, return to
avoid infinite recursion.
2007-07-28 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31818

10
gcc/fortran/resolve.c
View File

@ -789,8 +789,16 @@ generic_sym (gfc_symbol *sym)
return 0;
gfc_find_symbol (sym->name, sym->ns->parent, 1, &s);
if (s != NULL)
{
if (s == sym)
return 0;
else
return generic_sym (s);
}
return (s == NULL) ? 0 : generic_sym (s);
return 0;
}