1C PR debug/46756, reduced from ../20010519-1.f 2C { dg-do compile } 3C { dg-options "-O -fcompare-debug" } 4 5 LOGICAL QDISK,QDW,QCMPCT 6 LOGICAL LNOMA,LRAISE,LSCI,LBIG 7 ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } 8 GOTO 800 9 801 CONTINUE 10 ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } 11 761 CONTINUE 12 IF(LSCI) THEN 13 DO I=1,LENCM 14 ENDDO 15 ENDIF 16 DO WHILE((CVGMX.GT.TOLDIM).AND.(ITER.LT.ITMX)) 17 IF(.NOT.QDW) THEN 18 ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } 19 GOTO 640 20 641 CONTINUE 21 ENDIF 22 ENDDO 23 GOTO 700 24 640 CONTINUE 25 GOTO I640 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } 26 700 CONTINUE 27 GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } 28 800 CONTINUE 29 GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } 30 END 31