@@ -877,19 +877,21 @@ set_even_probabilities (basic_block bb,
int p = prediction->ep_probability;
profile_probability prob
= profile_probability::from_reg_br_prob_base (p);
- profile_probability remainder = prob.invert ();
- remainder -= profile_probability::very_unlikely ()
- .apply_scale (unlikely_count, 1);
- int count = nedges - unlikely_count - 1;
- gcc_assert (count >= 0);
- profile_probability even = remainder.apply_scale (1, count);
if (prediction->ep_edge == e)
e->probability = prob;
else if (unlikely_edges != NULL && unlikely_edges->contains (e))
e->probability = profile_probability::very_unlikely ();
else
- e->probability = even;
+ {
+ profile_probability remainder = prob.invert ();
+ remainder -= profile_probability::very_unlikely ()
+ .apply_scale (unlikely_count, 1);
+ int count = nedges - unlikely_count - 1;
+ gcc_assert (count >= 0);
+
+ e->probability = remainder.apply_scale (1, count);
+ }
}
else
e->probability = profile_probability::never ();
new file mode 100644
@@ -0,0 +1,28 @@
+! { dg-do compile }
+! { dg-options "-fno-tree-fre -fno-tree-ccp -Og" }
+
+program simplify_transfer
+ call pr30881 ()
+contains
+ subroutine pr18769 ()
+ type t
+ end type t
+ end subroutine pr18769
+ subroutine pr30881 ()
+ INTEGER, PARAMETER :: K=1
+ I=TRANSFER(.TRUE.,K)
+ SELECT CASE(I)
+ CASE(TRANSFER(.TRUE.,K))
+ CASE(TRANSFER(.FALSE.,K))
+ STOP 2
+ CASE DEFAULT
+ STOP 3
+ END SELECT
+ END subroutine pr30881
+ subroutine pr31194 ()
+ end subroutine pr31194
+ subroutine pr31216 ()
+ END subroutine pr31216
+ subroutine pr31427 ()
+ END subroutine pr31427
+end program simplify_transfer