re PR rtl-optimization/46755 (ICE: in calc_dfs_tree, at dominance.c:395 with -O)

gcc/
	PR rtl-optimization/46755
	* ira.c (ira): If some dead edges were removed, find and delete
	any blocks that might have become unreachable.

testsuite/
	PR rtl-optimization/46755
	* gfortran.dg/pr46755.f: New test

From-SVN: r168118

1 files changed, 2 insertions, 1 deletions

diff --git a/gcc/ira.c b/gcc/ira.c
index 6db1fba..5f27fc2 100644
--- a/gcc/ira.c
+++ b/gcc/ira.c
@@ -3158,7 +3158,8 @@ ira (FILE *f)
 	{
 	  timevar_push (TV_JUMP);
 	  rebuild_jump_labels (get_insns ());
-	  purge_all_dead_edges ();
+	  if (purge_all_dead_edges ())
+	    delete_unreachable_blocks ();
 	  timevar_pop (TV_JUMP);
 	}
     }