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

Avoid crash when global symbol table is empty with -fdump-fortran-global. 

This just avoids a crash with -fdump-fortran-global when the
global symbol table is empty.  This is strictly a developer's
option, no user impact.

gcc/fortran/ChangeLog:

2020-06-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/42122
	* dump-parse-tree.c (gfc_dump_global_symbols):  If the symroot is
	empty, just output "empty".
This commit is contained in:
Thomas Koenig 2020-06-14 17:37:49 +02:00
parent 3ee9d82484
commit 3de12cc548
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/dump-parse-tree.c
View File

@ -3595,5 +3595,8 @@ show_global_symbol (gfc_gsymbol *gsym, void *f_data)
void
gfc_dump_global_symbols (FILE *f)
{
gfc_traverse_gsymbol (gfc_gsym_root, show_global_symbol, (void *) f);
if (gfc_gsym_root == NULL)
fprintf (f, "empty\n");
else
gfc_traverse_gsymbol (gfc_gsym_root, show_global_symbol, (void *) f);
}