diff options
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 1c9dff2..2f96e90 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -4106,10 +4106,7 @@ simplify_min_max (gfc_expr *expr, int sign) min_max_choose (arg->expr, extremum->expr, sign); /* Delete the extra constant argument. */ - if (last == NULL) - expr->value.function.actual = arg->next; - else - last->next = arg->next; + last->next = arg->next; arg->next = NULL; gfc_free_actual_arglist (arg); |