gcc/testsuite/gfortran.dg/pr46755.f

   1 C { dg-do compile }
   2 C { 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