diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/20030115-1.f | 17 |
2 files changed, 5 insertions, 17 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 28eeeb6..f8f2c51 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 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 |