re PR fortran/34028 (Type mismatch with optimization of ISHFT)

PR fortran/34028 * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use correct type. From-SVN: r130003

re PR fortran/34028 (Type mismatch with optimization of ISHFT)
PR fortran/34028 * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use correct type. From-SVN: r130003
8dc9f613 · Francois-Xavier Coudert · François-Xavier Coudert · abf86978 · 8dc9f613 · 8dc9f613
Commit 8dc9f613 authored Nov 08, 2007 by Francois-Xavier Coudert Committed by François-Xavier Coudert Nov 08, 2007
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

gcc/fortran/ChangeLog
+5 -0

gcc/fortran/trans-intrinsic.c
+1 -1

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
+2007-11-08  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR fortran/34028
+	* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use correct type.
+
 2007-11-08  Tobias Burnus  <burnus@net-b.de>

 	PR fortran/33917

--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -2533,7 +2533,7 @@ gfc_conv_intrinsic_ishft (gfc_se * se, gfc_expr * expr)
  /* The Fortran standard allows shift widths <= BIT_SIZE(I), whereas
     gcc requires a shift width < BIT_SIZE(I), so we have to catch this
     special case.  */
-  num_bits = build_int_cst (TREE_TYPE (args[0]), TYPE_PRECISION (type));
+  num_bits = build_int_cst (TREE_TYPE (args[1]), TYPE_PRECISION (type));
  cond = fold_build2 (GE_EXPR, boolean_type_node, width, num_bits);

  se->expr = fold_build3 (COND_EXPR, type, cond,