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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 876a9bbd6e7dbc33bcaa463bc19eb8b342a4e14b..64b65730313f3837f2d9f2a6fd9e00919d830f78 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2019-11-13  Tobias Burnus  <tobias@codesourcery.com>
+
+       * trans-expr.c (gfc_conv_procedure_call): Fold hidden
+       is-present argument to the right type.
+
 2019-11-12  Harald Anlauf  <anlauf@gmx.de>
 
        PR fortran/81651
@@ -55,9 +60,9 @@
 
 2019-11-11  Janne Blomqvist  <jb@gcc.gnu.org>
 
-        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  <tobias@codesourcery.com>
            Kwok Cheung Yeung  <kcy@codesourcery.com>

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 63559384c1e2793524570429259382995d19a737..267536ddf2f8a6aa27b3fee4c28efdd2be43b029 100644 (file)
--- 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));
                          }
                      }
                    }