mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-19 09:05:17 +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)
{
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);
return false;
}
if (f->actual == NULL)
if (a == NULL)
{
a = gfc_get_actual_arglist ();
a->missing_arg_type = f->ts.type;
}
else
a = f->actual;
if (actual == NULL)
*ap = a;