diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 65af694706ee..1af0c54177f0 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/gcc/testsuite/gfortran.dg/pr46755.f b/gcc/testsuite/gfortran.dg/pr46755.f
index ff764a7d88df..adc57eb49d44 100644
--- a/gcc/testsuite/gfortran.dg/pr46755.f
+++ b/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