re PR fortran/32938 (ICE in emit_move_insn with -fdefault-integer-8)

PR fortran/32938 * trans-stmt.c (gfc_trans_return): Convert to correct type. * gfortran.dg/altreturn_6.f90: New test. From-SVN: r127106

re PR fortran/32938 (ICE in emit_move_insn with -fdefault-integer-8)
PR fortran/32938 * trans-stmt.c (gfc_trans_return): Convert to correct type. * gfortran.dg/altreturn_6.f90: New test. From-SVN: r127106
7d520b9b · Francois-Xavier Coudert · François-Xavier Coudert · 14b1261a · 7d520b9b · 7d520b9b
Commit 7d520b9b authored Jul 31, 2007 by Francois-Xavier Coudert Committed by François-Xavier Coudert Jul 31, 2007
Hide whitespace changes
Inline Side-by-side

Showing with 17 additions and 1 deletions

gcc/fortran/ChangeLog
+5 -0

gcc/fortran/trans-stmt.c
+2 -1

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/gfortran.dg/altreturn_6.f90
+5 -0

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
+2007-07-31  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR fortran/32938
+	* trans-stmt.c (gfc_trans_return): Convert to correct type.
+
 2007-07-31  Steven G. Kargl  <kargl@gcc.gnu.org>

 	PR fortran/32942

--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -447,7 +447,8 @@ gfc_trans_return (gfc_code * code ATTRIBUTE_UNUSED)

      gfc_conv_expr (&se, code->expr);

-      tmp = build2 (MODIFY_EXPR, TREE_TYPE (result), result, se.expr);
+      tmp = build2 (MODIFY_EXPR, TREE_TYPE (result), result,
+		    fold_convert (TREE_TYPE (result), se.expr));
      gfc_add_expr_to_block (&se.pre, tmp);

      tmp = build1_v (GOTO_EXPR, gfc_get_return_label ());

--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+2007-07-31  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR fortran/32938
+	* gfortran.dg/altreturn_6.f90: New test.
+
 2007-07-31  Steven G. Kargl  <kargl@gcc.gnu.org>

 	PR fortran/32942
--- a/gcc/testsuite/gfortran.dg/altreturn_6.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_6.f90
+! PR 32938
+subroutine r (*)
+  integer(kind=8) :: i
+  return i
+end