diff options
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/jump.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/debug/pr46576.f | 29 |
4 files changed, 40 insertions, 1 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 92397f1..e31fb70 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,10 @@ 2010-12-13 Alexandre Oliva <aoliva@redhat.com> + PR debug/46576 + * jump.c (mark_all_labels): Skip debug insns. + +2010-12-13 Alexandre Oliva <aoliva@redhat.com> + PR debug/46782 * cfgcleanup.c (try_forward_edges): Skip debug insns. @@ -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); diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 05a4341..25dfba4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2010-12-13 Alexandre Oliva <aoliva@redhat.com> + PR debug/46576 + * gfortran.dg/debug/pr46576.f: New. + +2010-12-13 Alexandre Oliva <aoliva@redhat.com> + PR debug/46782 * gcc.dg/debug/pr46782.c: New. diff --git a/gcc/testsuite/gfortran.dg/debug/pr46576.f b/gcc/testsuite/gfortran.dg/debug/pr46576.f new file mode 100644 index 0000000..58fb301 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/debug/pr46576.f @@ -0,0 +1,29 @@ +C PR debug/46576, reduced from ../20010519-1.f +C { dg-do compile } +C { dg-options "-O -fcompare-debug" } + LOGICAL QDISK,QDW,QCMPCT + LOGICAL LNOMA,LRAISE,LSCI,LBIG + ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } + GOTO 800 + 801 CONTINUE + ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } + 761 CONTINUE + IF(LSCI) THEN + DO I=1,LENCM + ENDDO + ENDIF + DO WHILE((CVGMX.GT.TOLDIM).AND.(ITER.LT.ITMX)) + IF(.NOT.QDW) THEN + ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } + GOTO 640 + 641 CONTINUE + ENDIF + ENDDO + GOTO 700 + 640 CONTINUE + GOTO I640 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } + 700 CONTINUE + GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } + 800 CONTINUE + GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } + END |