re PR debug/46756 (-fcompare-debug failure (length) with ASSIGN)

gcc/ChangeLog:
PR debug/46576
* jump.c (mark_all_labels): Skip debug insns.
gcc/testsuite/ChangeLog:
PR debug/46576
* gfortran.dg/debug/pr46576.f: New.

From-SVN: r167738

1 files changed, 1 insertions, 1 deletions

diff --git a/gcc/jump.c b/gcc/jump.c
index b85326a..9721fe1 100644
--- a/gcc/jump.c
+++ b/gcc/jump.c
@@ -193,7 +193,7 @@ mark_all_labels (rtx f)
   rtx prev_nonjump_insn = NULL;
 
   for (insn = f; insn; insn = NEXT_INSN (insn))
-    if (INSN_P (insn))
+    if (NONDEBUG_INSN_P (insn))
       {
 	mark_jump_label (PATTERN (insn), insn, 0);