diff options
| author | Manfred Schwarb <manfred99@gmx.ch> | 2021-12-14 16:28:58 +0100 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2021-12-14 16:30:07 +0100 |
| commit | f1215db08126fbd2d69d971d65611508cf83b4ae (patch) | |
| tree | 719ba4a201c6fbabd3860286925a9ae5eb23049d /gcc/fortran/simplify.c | |
| parent | 973f6aedeb6489a9fdc7aeceaed0514348ee1e1a (diff) | |
| download | gcc-f1215db08126fbd2d69d971d65611508cf83b4ae.zip gcc-f1215db08126fbd2d69d971d65611508cf83b4ae.tar.gz gcc-f1215db08126fbd2d69d971d65611508cf83b4ae.tar.bz2 | |
fortran: Silence conversion warnings for MIN1 and MAX1
gcc/fortran/ChangeLog:
PR fortran/91497
* simplify.c (simplify_min_max): Disable conversion warnings for
MIN1 and MAX1.
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index fb7b781..90067b6 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -5096,6 +5096,7 @@ min_max_choose (gfc_expr *arg, gfc_expr *extremum, int sign, bool back_val) static gfc_expr * simplify_min_max (gfc_expr *expr, int sign) { + int tmp1, tmp2; gfc_actual_arglist *arg, *last, *extremum; gfc_expr *tmp, *ret; const char *fname; @@ -5140,7 +5141,16 @@ simplify_min_max (gfc_expr *expr, int sign) if ((tmp->ts.type != BT_INTEGER || tmp->ts.kind != gfc_integer_4_kind) && (strcmp (fname, "min1") == 0 || strcmp (fname, "max1") == 0)) { + /* Explicit conversion, turn off -Wconversion and -Wconversion-extra + warnings. */ + tmp1 = warn_conversion; + tmp2 = warn_conversion_extra; + warn_conversion = warn_conversion_extra = 0; + ret = gfc_convert_constant (tmp, BT_INTEGER, gfc_integer_4_kind); + + warn_conversion = tmp1; + warn_conversion_extra = tmp2; } else if ((tmp->ts.type != BT_REAL || tmp->ts.kind != gfc_real_4_kind) && (strcmp (fname, "amin0") == 0 || strcmp (fname, "amax0") == 0)) |