re PR middle-end/50628 (gfortran.fortran-torture/execute/entry_4.f90 fails)

2011-12-13  Martin Jambor  <mjambor@suse.cz>

	PR middle-end/50628
	* tree-sra.c (propagate_subaccesses_across_link): Do not propagate
	sub-accesses of scalar accesses.

From-SVN: r182289

gcc/ChangeLog

 2011-12-13  Martin Jambor  <mjambor@suse.cz>
 
+	PR middle-end/50628
+	* tree-sra.c (propagate_subaccesses_across_link): Do not propagate
+	sub-accesses of scalar accesses.
+
+2011-12-13  Martin Jambor  <mjambor@suse.cz>
+
 	PR tree-optimization/51362
 	* ipa-cp.c (estimate_local_effects): When estimated size of a
 	specialized clone is zero, bump it to one.

gcc/tree-sra.c

@@ -2266,14 +2266,15 @@ propagate_subaccesses_across_link (struct access *lacc, struct access *racc)
       || racc->grp_unscalarizable_region)
     return false;
 
-  if (!lacc->first_child && !racc->first_child
-      && is_gimple_reg_type (racc->type))
+  if (is_gimple_reg_type (racc->type))
+    {
+      if (!lacc->first_child && !racc->first_child)
 	{
 	  tree t = lacc->base;
 
 	  lacc->type = racc->type;
-      if (build_user_friendly_ref_for_offset (&t, TREE_TYPE (t), lacc->offset,
-					      racc->type))
+	  if (build_user_friendly_ref_for_offset (&t, TREE_TYPE (t),
+						  lacc->offset, racc->type))
 	    lacc->expr = t;
 	  else
 	    {
@@ -2282,6 +2283,7 @@ propagate_subaccesses_across_link (struct access *lacc, struct access *racc)
 						racc, NULL, false);
 	      lacc->grp_no_warning = true;
 	    }
+	}
       return false;
     }