re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)

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.

From-SVN: r127210

gcc/testsuite/ChangeLog

-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.

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