From b08963101d37f0a903bd4d82987366d7c4f45cb1 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 13 Nov 2019 09:09:42 +0100 Subject: [PATCH] Fortran] Use proper type for hidden is-present argument gcc/fortran/ * trans-expr.c (gfc_conv_procedure_call): Fold hidden is-present argument to the right type. From-SVN: r278114 --- gcc/fortran/ChangeLog | 11 ++++++++--- gcc/fortran/trans-expr.c | 4 +++- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 876a9bbd6e7..64b65730313 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2019-11-13 Tobias Burnus + + * trans-expr.c (gfc_conv_procedure_call): Fold hidden + is-present argument to the right type. + 2019-11-12 Harald Anlauf PR fortran/81651 @@ -55,9 +60,9 @@ 2019-11-11 Janne Blomqvist - PR fortran/91828 - * simplify.c (gfc_simplify_fraction): Remove fallback path for - MPFR < 3.1.0. + PR fortran/91828 + * simplify.c (gfc_simplify_fraction): Remove fallback path for + MPFR < 3.1.0. 2019-11-11 Tobias Burnus Kwok Cheung Yeung diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 63559384c1e..267536ddf2f 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -5750,7 +5750,9 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, fold_convert (TREE_TYPE (parmse.expr), integer_zero_node)); - vec_safe_push (optionalargs, tmp); + vec_safe_push (optionalargs, + fold_convert (boolean_type_node, + tmp)); } } } -- 2.30.2