diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 28eeeb6fe7e..f8f2c51b82b 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-15  Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+	PR fortran/25336
+	* gfortran/dg/g77/20030115-1.f: Delete duplicate test.
+
 2006-04-15  Jakub Jelinek  <jakub@redhat.com>
 
 	PR middle-end/26823
diff --git a/gcc/testsuite/gfortran.dg/g77/20030115-1.f b/gcc/testsuite/gfortran.dg/g77/20030115-1.f
deleted file mode 100644
index faa08e5205e..00000000000
--- a/gcc/testsuite/gfortran.dg/g77/20030115-1.f
+++ /dev/null
@@ -1,17 +0,0 @@
-C { dg-do compile }
-      SUBROUTINE FOO (B)
-
-   10 CALL BAR(A)
-      ASSIGN 20 TO M ! { dg-warning "Obsolete: ASSIGN" "ASSIGN" }
-
-      IF(100.LT.A) GOTO 10
-      GOTO 40
-C
-   20 IF(B.LT.ABS(A)) GOTO 10
-      ASSIGN 30 TO M ! { dg-warning "Obsolete: ASSIGN" "ASSIGN" }
-      GOTO 40
-C
-   30 ASSIGN 10 TO M ! { dg-warning "Obsolete: ASSIGN" "ASSIGN" }
-   40 GOTO M,(10,20,30) ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" }
- 
-      END