OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r112967
This commit is contained in:
Jerry DeLisle 2006-04-15 04:51:39 +00:00
parent bed575d525
commit db753da024
2 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

17
gcc/testsuite/gfortran.dg/g77/20030115-1.f
View File

@ -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