* gfortran.dg/pr46755.f: Fix test case.

From-SVN: r168167

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/pr46755.f

@@ -4,17 +4,18 @@ C { dg-options "-O" }
       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