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