[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90

Index: gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90
diff --git a/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90 b/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90
index f8efc0ad8b583055e8535489665d39b660e6993b..8a0788978afa341edd10efb62d6571917ae3bcdc 100644
--- a/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90
+++ b/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90
@@ -5,14 +5,14 @@
 !
 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
 !
-character(*) function charrext (n)  ! { dg-warning "is obsolescent in fortran 95" }
+character(*) function charrext (n)  ! { dg-warning "Obsolescent feature" }
   character(26) :: alpha ="abcdefghijklmnopqrstuvwxyz"
   charrext = alpha (1:n)
 end function charrext
 
   character(26), external :: charrext
   interface
-    integer(4) function test(charr, i)
+    integer(4) function test(charr, i)  ! { dg-warning "Obsolescent feature" }
      character(*), external :: charr
      integer :: i
     end function test
@@ -23,7 +23,7 @@ end function charrext
     m = ctest (charrext, 27 - j)
   end do
 contains
-  integer(4) function ctest(charr, i)  ! { dg-warning "is obsolescent in fortran 95" }
+  integer(4) function ctest(charr, i)  ! { dg-warning "Obsolescent feature" }
     character(*) :: charr
     integer :: i
     print *, charr(i)
@@ -31,9 +31,10 @@ contains
   end function ctest
 end
 
-integer(4) function test(charr, i)  ! { dg-warning "is obsolescent in fortran 95" }
+integer(4) function test(charr, i)  ! { dg-warning "Obsolescent feature" }
   character(*) :: charr
   integer :: i
   print *, charr(i)
   test = 1
-end function test
+end function test
+