diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr17229.f | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bf4845f..8540aac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/30681 + * gfortran.dg/pr17229.f: Change "Obsolete" to "Obsolescent". + 2007-02-18 Roger Sayle <roger@eyesopen.com> PR rtl-optimization/28173 diff --git a/gcc/testsuite/gfortran.dg/pr17229.f b/gcc/testsuite/gfortran.dg/pr17229.f index 4e96d29..da780d7 100644 --- a/gcc/testsuite/gfortran.dg/pr17229.f +++ b/gcc/testsuite/gfortran.dg/pr17229.f @@ -5,18 +5,18 @@ l = .false. i = -1 - if (l) if (i) 999,999,999 ! { dg-warning "Obsolete: arithmetic IF statement" } + if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent: arithmetic IF statement" } l = .true. - if (l) if (i) 10,999,999 ! { dg-warning "Obsolete: arithmetic IF statement" } + if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent: arithmetic IF statement" } go to 999 10 i = 0 - if (l) if (i) 999,20,999 ! { dg-warning "Obsolete: arithmetic IF statement" } + if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent: arithmetic IF statement" } go to 999 20 i = 1 - if (l) if (i) 999,999,30 ! { dg-warning "Obsolete: arithmetic IF statement" } + if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent: arithmetic IF statement" } go to 999 999 call abort |