5 INTEGER I,ITER,ITMX,LENCM
7 ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
9 GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
11 ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
15 DO WHILE(ITER.LT.ITMX)
17 ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
18 GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }