diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aa747033b64..37fce967539 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,4 +1,10 @@
-2008-08-04  Steven G. Kargl  <kargl@gcc.gnu.org>
+2007-08-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/32770
+	* gfortran.dg/direct_io_2.f90:  Implicitly declare integer
+	variables as kind=4 so they don't overflow the record length.
+
+2007-08-04  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	PR fortran/32968
 	* gfortran.dg/selected_kind_1.f90: New test.
diff --git a/gcc/testsuite/gfortran.dg/direct_io_2.f90 b/gcc/testsuite/gfortran.dg/direct_io_2.f90
index 08a7d0a2ddc..cc20f96eedd 100644
--- a/gcc/testsuite/gfortran.dg/direct_io_2.f90
+++ b/gcc/testsuite/gfortran.dg/direct_io_2.f90
@@ -6,6 +6,7 @@
       PROGRAM FM413
       IMPLICIT LOGICAL (L)
       IMPLICIT CHARACTER*14 (C)
+      IMPLICIT INTEGER(4) (I)
       DATA IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56 /14*0/
       OPEN (7, ACCESS = 'DIRECT', RECL = 80, STATUS='REPLACE', FILE="FOO" )
       IRECN = 13