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