re PR testsuite/25336 (Identical tests: gfortran.dg/g77/20030115-1.f gfortran.dg...

2006-04-15  Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/25336
	* gfortran/dg/g77/20030115-1.f: Delete duplicate test.

From-SVN: r112967

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 28eeeb6fe7eb36e0e0c037bc08d8c6874fd72b84..f8f2c51b82be28c68f74fef0fbe63913b0b22f8e 100644 (file)
--- 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 (file)
index faa08e5..0000000
--- 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