mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 04:50:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/35724 (Compile time segmentation fault for CSHIFT with negative third arg)

Browse Source 
2008-04-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35724
	* trans-common.c (create_common): Revert patch causing regression.

From-SVN: r134464
This commit is contained in:
Jerry DeLisle 2008-04-19 06:34:12 +00:00
parent 22d81154e2
commit 6c0c6ecc6f
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2008-04-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35724
* trans-common.c (create_common): Revert patch causing regression.
2008-04-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35724

7
gcc/fortran/trans-common.c
View File

@ -686,8 +686,11 @@ create_common (gfc_common_head *com, segment_info *head, bool saw_equiv)
TREE_ADDRESSABLE (var_decl) = 1;
/* This is a fake variable just for debugging purposes. */
TREE_ASM_WRITTEN (var_decl) = 1;
gfc_add_decl_to_function (var_decl);
if (com)
var_decl = pushdecl_top_level (var_decl);
else
gfc_add_decl_to_function (var_decl);
SET_DECL_VALUE_EXPR (var_decl,
fold_build3 (COMPONENT_REF, TREE_TYPE (s->field),