1C { dg-do compile }
2C { dg-options "-O" }
3      IMPLICIT NONE
4      INTEGER I640,I760,I800
5      INTEGER I,ITER,ITMX,LENCM
6      LOGICAL QDISK,QDW
7      ASSIGN 801 TO I800        ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
8
9      GOTO I800                 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
10 801  CONTINUE
11      ASSIGN 761 TO I760        ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
12 761  CONTINUE
13      DO I=1,LENCM
14      ENDDO
15      DO WHILE(ITER.LT.ITMX)
16         IF(QDW) THEN
17            ASSIGN 641 to I640  ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
18            GOTO I760           ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
19 641        CONTINUE
20         ENDIF
21      ENDDO
22      RETURN
23      END
24
25