OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/70937 (ICE: tree code ‘ssa_name’ is not supported in LTO streams)

Browse Source 
2016-05-09  Richard Biener  <rguenther@suse.de>

	PR fortran/70937
	* trans-decl.c: Include gimplify.h for unshare_expr.
	(gfc_trans_vla_one_sizepos): Unshare exprs before inserting
	them into the IL.

	* gfortran.dg/pr70937.f90: New testcase.

From-SVN: r236021
This commit is contained in:
Richard Biener 2016-05-09 07:42:45 +00:00 committed by Richard Biener
parent e6dffc988a
commit 7a27d38f4e
4 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2016-05-09 Richard Biener <rguenther@suse.de>
PR fortran/70937
* trans-decl.c: Include gimplify.h for unshare_expr.
(gfc_trans_vla_one_sizepos): Unshare exprs before inserting
them into the IL.
2016-05-07 Fritz Reese <fritzoreese@gmail.com>
PR fortran/56226

3
gcc/fortran/trans-decl.c
View File

@ -45,6 +45,7 @@ along with GCC; see the file COPYING3. If not see
/* Only for gfc_trans_code. Shouldn't need to include this. */
#include "trans-stmt.h"
#include "gomp-constants.h"
#include "gimplify.h"
#define MAX_LABEL_VALUE 99999
@ -3754,7 +3755,7 @@ gfc_trans_vla_one_sizepos (tree *tp, stmtblock_t *body)
var = gfc_create_var_np (TREE_TYPE (t), NULL);
gfc_add_decl_to_function (var);
gfc_add_modify (body, var, val);
gfc_add_modify (body, var, unshare_expr (val));
if (TREE_CODE (t) == SAVE_EXPR)
TREE_OPERAND (t, 0) = var;
*tp = var;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-05-09 Richard Biener <rguenther@suse.de>
PR fortran/70937
* gfortran.dg/pr70937.f90: New testcase.
2016-05-08 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* gcc.dg/ipa/pure-const-3.c: Scan local-pure-const1 dump.

10
gcc/testsuite/gfortran.dg/pr70937.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
! { dg-options "-flto" }
SUBROUTINE dbcsr_test_read_args(narg, args)
CHARACTER(len=*), DIMENSION(:), &
INTENT(out) :: args
CHARACTER(len=80) :: line
DO
args(narg) = line
ENDDO
END SUBROUTINE dbcsr_test_read_args