procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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;
}