diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0c99b3c956e..29dcdf023f9 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/31813
+	* gfortran.dg/io_constraints_2.f90: Update.
+
 2007-05-26  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/31219
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
index 9e83561773e..fa6cbdbca6b 100644
--- a/gcc/testsuite/gfortran.dg/io_constraints_2.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
@@ -17,7 +17,7 @@ contains
   subroutine foo (i)
     integer :: i
     write (*, 100) i
- 100 format (1h , "i=", i6)                     ! This is OK.
+ 100 format (1h , "i=", i6) ! { dg-warning "H format specifier" }
   end subroutine foo
 
 end module global