* trans-array.c (gfc_trans_auto_array_allocation): Replace

	fold(convert()) by fold_convert().
	(gfc_duplicate_allocatable): Likewise.
	* trans-intrinsic.c (gfc_conv_intrinsic_dot_product): Use
	build_int_cst instead of converting an integer_zero_node
	to the final type.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122921 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 832f62ca8fcc6269d0fc265f62275857fbad9427..48d433494672ceeb7a262e3e710537a53769ad51 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,12 @@
+2007-03-14  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       * trans-array.c (gfc_trans_auto_array_allocation): Replace
+       fold(convert()) by fold_convert().
+       (gfc_duplicate_allocatable): Likewise.
+       * trans-intrinsic.c (gfc_conv_intrinsic_dot_product): Use
+       build_int_cst instead of converting an integer_zero_node
+       to the final type.
+
 2007-03-14  Jakub Jelinek  <jakub@redhat.com>
 
        * module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER.

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index c7e9da12195b84bcd59db10e052288dc378efb3a..5d4133107359f61ec0a1ffd1f3459d39d200e86f 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3862,7 +3862,7 @@ gfc_trans_auto_array_allocation (tree decl, gfc_symbol * sym, tree fnbody)
   else
     gcc_unreachable ();
   tmp = build_call_expr (fndecl, 1, size);
-  tmp = fold (convert (TREE_TYPE (decl), tmp));
+  tmp = fold_convert (TREE_TYPE (decl), tmp);
   gfc_add_modify_expr (&block, decl, tmp);
 
   /* Set offset of the array.  */
@@ -4918,8 +4918,7 @@ gfc_duplicate_allocatable(tree dest, tree src, tree type, int rank)
     tmp = build_call_expr (gfor_fndecl_internal_malloc64, 1, size);
   else
     gcc_unreachable ();
-  tmp = fold (convert (TREE_TYPE (gfc_conv_descriptor_data_get (src)),
-             tmp));
+  tmp = fold_convert (TREE_TYPE (gfc_conv_descriptor_data_get (src)), tmp);
   gfc_conv_descriptor_data_set (&block, dest, tmp);
 
   /* We know the temporary and the value will be the same length,

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 6c08004e449c231084aa6f3c8d6785bdf7ab6f6b..58c4131eea702362eeedc3692971e5ebee6a68fb 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -1840,7 +1840,7 @@ gfc_conv_intrinsic_dot_product (gfc_se * se, gfc_expr * expr)
   /* Initialize the result.  */
   resvar = gfc_create_var (type, "val");
   if (expr->ts.type == BT_LOGICAL)
-    tmp = convert (type, integer_zero_node);
+    tmp = build_int_cst (type, 0);
   else
     tmp = gfc_build_const (type, integer_zero_node);