mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 14:01:04 +08:00
Code Issues Packages Projects Releases Wiki Activity

Only return after resetting type_param_spec_list

Browse Source 
This fixes an appearant mistake in gfc_insert_parameter_exprs.

2021-11-29  Richard Biener  <rguenther@suse.de>

gcc/fortran/
	* decl.c (gfc_insert_parameter_exprs): Only return after
	resetting type_param_spec_list.
This commit is contained in:
Richard Biener 2021-11-29 12:26:39 +01:00
parent e2521cd2d2
commit b962469a01
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/decl.c
View File

@ -3733,9 +3733,9 @@ gfc_insert_parameter_exprs (gfc_expr *e, gfc_actual_arglist *param_list)
{
gfc_actual_arglist *old_param_spec_list = type_param_spec_list;
type_param_spec_list = param_list;
return gfc_traverse_expr (e, NULL, &insert_parameter_exprs, 1);
type_param_spec_list = NULL;
bool res = gfc_traverse_expr (e, NULL, &insert_parameter_exprs, 1);
type_param_spec_list = old_param_spec_list;
return res;
}
/* Determines the instance of a parameterized derived type to be used by