+2010-12-22 Steven Bosscher <steven@gcc.gnu.org>
+
+ * gfortran.dg/pr46755.f: Fix test case.
+
2010-12-22 Andrey Belevantsev <abel@ispras.ru>
PR rtl-optimization/45352
INTEGER I640,I760,I800
INTEGER I,ITER,ITMX,LENCM
LOGICAL QDISK,QDW
- ASSIGN 801 TO I800
- GOTO I800
+ ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
+
+ GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
801 CONTINUE
- ASSIGN 761 TO I760
+ ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
761 CONTINUE
DO I=1,LENCM
ENDDO
DO WHILE(ITER.LT.ITMX)
IF(QDW) THEN
- ASSIGN 641 to I640
- GOTO I760
+ ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
+ GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
641 CONTINUE
ENDIF
ENDDO