git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Alexandre Oliva 2010-12-13 03:08:24 +00:00 committed by Alexandre Oliva
parent 1132111122
commit b403760c3e
4 changed files with 40 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
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

2
gcc/jump.c
View File

@ -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);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

29
gcc/testsuite/gfortran.dg/debug/pr46576.f Normal file
View File

@ -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