mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-21 10:05:27 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

fortran: Tiny sort_actual internal refactoring

Browse Source 
Preliminary refactoring to make further changes more obvious.
No functional change.

gcc/fortran/ChangeLog:
	* intrinsic.c (sort_actual): initialise variable and use it earlier.
This commit is contained in:
Mikael Morin 2021-11-07 14:39:47 +01:00
parent 7461b58131
commit c31733c3bf
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/intrinsic.c
View File

@ -4379,19 +4379,18 @@ do_sort:
for (f = formal; f; f = f->next) for (f = formal; f; f = f->next)
{ {
if (f->actual && f->actual->label != NULL && f->ts.type) a = f->actual;
if (a && a->label != NULL && f->ts.type)
{ {
gfc_error ("ALTERNATE RETURN not permitted at %L", where); gfc_error ("ALTERNATE RETURN not permitted at %L", where);
return false; return false;
} }
if (f->actual == NULL) if (a == NULL)
{ {
a = gfc_get_actual_arglist (); a = gfc_get_actual_arglist ();
a->missing_arg_type = f->ts.type; a->missing_arg_type = f->ts.type;
} }
else
a = f->actual;
if (actual == NULL) if (actual == NULL)
*ap = a; *ap = a;