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

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

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

From-SVN: r112967

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/g77/20030115-1.f

-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