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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aa747033b649aa96571b8784ffd5757d7bd619be..37fce9675391feb4ebf0423d149d70a467918d52 100644 (file)
--- 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 08a7d0a2ddc7fcf161091bcceec0d24715de379e..cc20f96eedd2e8f5ad2442f5d0cba45132efb703 100644 (file)
--- 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