Fix up gcc12-fortran-fdec-promotion.patch patch.

This commit is contained in:
Jakub Jelinek 2022-01-19 17:00:04 +01:00
parent b2295576ca
commit dc6e17c8c2

View File

@ -180,7 +180,7 @@ diff --git a/gcc/fortran/iresolve.cc b/gcc/fortran/iresolve.cc
index e17fe45f080..b9cdaff2499 100644 index e17fe45f080..b9cdaff2499 100644
--- a/gcc/fortran/iresolve.cc --- a/gcc/fortran/iresolve.cc
+++ b/gcc/fortran/iresolve.cc +++ b/gcc/fortran/iresolve.cc
@@ -817,19 +817,22 @@ gfc_resolve_dble (gfc_expr *f, gfc_expr *a) @@ -834,19 +834,22 @@ gfc_resolve_dble (gfc_expr *f, gfc_expr
void void
gfc_resolve_dim (gfc_expr *f, gfc_expr *a, gfc_expr *p) gfc_resolve_dim (gfc_expr *f, gfc_expr *a, gfc_expr *p)
{ {
@ -211,8 +211,8 @@ index e17fe45f080..b9cdaff2499 100644
+ f->ts = a->ts; + f->ts = a->ts;
f->value.function.name f->value.function.name
= gfc_get_string ("__dim_%c%d", gfc_type_letter (f->ts.type), f->ts.kind); = gfc_get_string ("__dim_%c%d", gfc_type_letter (f->ts.type),
@@ -1606,14 +1609,17 @@ gfc_resolve_minmax (const char *name, gfc_expr *f, gfc_actual_arglist *args) @@ -1622,14 +1625,17 @@ gfc_resolve_minmax (const char *name, gf
/* Find the largest type kind. */ /* Find the largest type kind. */
for (a = args->next; a; a = a->next) for (a = args->next; a; a = a->next)
{ {
@ -232,7 +232,7 @@ index e17fe45f080..b9cdaff2499 100644
gfc_convert_type (a->expr, &f->ts, 2); gfc_convert_type (a->expr, &f->ts, 2);
} }
@@ -2106,19 +2112,22 @@ gfc_resolve_minval (gfc_expr *f, gfc_expr *array, gfc_expr *dim, @@ -2130,19 +2136,22 @@ gfc_resolve_minval (gfc_expr *f, gfc_exp
void void
gfc_resolve_mod (gfc_expr *f, gfc_expr *a, gfc_expr *p) gfc_resolve_mod (gfc_expr *f, gfc_expr *a, gfc_expr *p)
{ {
@ -263,8 +263,8 @@ index e17fe45f080..b9cdaff2499 100644
+ f->ts = a->ts; + f->ts = a->ts;
f->value.function.name f->value.function.name
= gfc_get_string ("__mod_%c%d", gfc_type_letter (f->ts.type), f->ts.kind); = gfc_get_string ("__mod_%c%d", gfc_type_letter (f->ts.type),
@@ -2128,19 +2137,22 @@ gfc_resolve_mod (gfc_expr *f, gfc_expr *a, gfc_expr *p) @@ -2153,19 +2162,22 @@ gfc_resolve_mod (gfc_expr *f, gfc_expr *
void void
gfc_resolve_modulo (gfc_expr *f, gfc_expr *a, gfc_expr *p) gfc_resolve_modulo (gfc_expr *f, gfc_expr *a, gfc_expr *p)
{ {
@ -296,7 +296,7 @@ index e17fe45f080..b9cdaff2499 100644
f->value.function.name f->value.function.name
= gfc_get_string ("__modulo_%c%d", gfc_type_letter (f->ts.type), = gfc_get_string ("__modulo_%c%d", gfc_type_letter (f->ts.type),
@@ -2515,9 +2527,26 @@ gfc_resolve_shift (gfc_expr *f, gfc_expr *i, gfc_expr *shift ATTRIBUTE_UNUSED) @@ -2543,9 +2555,26 @@ gfc_resolve_shift (gfc_expr *f, gfc_expr
void void
@ -323,8 +323,8 @@ index e17fe45f080..b9cdaff2499 100644
+ f->ts = a->ts; + f->ts = a->ts;
+ } + }
f->value.function.name f->value.function.name
= gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); = gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type),
} gfc_type_abi_kind (&a->ts));
diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt
index d886c2f33ed..4ca2f93f2df 100644 index d886c2f33ed..4ca2f93f2df 100644
--- a/gcc/fortran/lang.opt --- a/gcc/fortran/lang.opt