| C PR debug/46756, reduced from ../20010519-1.f |
| C { dg-do compile } |
| C { dg-options "-O -fcompare-debug" } |
| |
| LOGICAL QDISK,QDW,QCMPCT |
| LOGICAL LNOMA,LRAISE,LSCI,LBIG |
| ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } |
| GOTO 800 |
| 801 CONTINUE |
| ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } |
| 761 CONTINUE |
| IF(LSCI) THEN |
| DO I=1,LENCM |
| ENDDO |
| ENDIF |
| DO WHILE((CVGMX.GT.TOLDIM).AND.(ITER.LT.ITMX)) |
| IF(.NOT.QDW) THEN |
| ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } |
| GOTO 640 |
| 641 CONTINUE |
| ENDIF |
| ENDDO |
| GOTO 700 |
| 640 CONTINUE |
| GOTO I640 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } |
| 700 CONTINUE |
| GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } |
| 800 CONTINUE |
| GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } |
| END |