From 312f2e97a42b6b92f27605032215e8a00ef83a13 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 19 Feb 2007 06:52:18 +0000 Subject: [PATCH] re PR fortran/30681 ("obsolescent" vs. "obsolete") 2007-02-18 Jerry DeLisle PR fortran/30681 * gfortran.dg/pr17229.f: Change "Obsolete" to "Obsolescent". From-SVN: r122125 --- gcc/testsuite/ChangeLog | 5 +++++ 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 bf4845f9c36..8540aaca729 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-02-18 Jerry DeLisle + + PR fortran/30681 + * gfortran.dg/pr17229.f: Change "Obsolete" to "Obsolescent". + 2007-02-18 Roger Sayle PR rtl-optimization/28173 diff --git a/gcc/testsuite/gfortran.dg/pr17229.f b/gcc/testsuite/gfortran.dg/pr17229.f index 4e96d29921a..da780d7feef 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