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