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