OSDN Git Service

2007-08-04 Thomas Koenig <tkoenig@gcc.gnu.org>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 4 Aug 2007 18:20:54 +0000 (18:20 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 4 Aug 2007 18:20:54 +0000 (18:20 +0000)
PR fortran/32770
* gfortran.dg/direct_io_2.f90:  Implicitly declare integer
variables as kind=4 so they don't overflow the record length.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127210 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/direct_io_2.f90

index aa74703..37fce96 100644 (file)
@@ -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.
index 08a7d0a..cc20f96 100644 (file)
@@ -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