From 5b011f844d5e5ed698bf569ae9787374baddbb41 Mon Sep 17 00:00:00 2001 From: tkoenig Date: Sat, 4 Aug 2007 18:20:54 +0000 Subject: 2007-08-04 Thomas Koenig 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 | 8 +++++++- gcc/testsuite/gfortran.dg/direct_io_2.f90 | 1 + 2 files changed, 8 insertions(+), 1 deletion(-) (limited to 'gcc') 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 +2007-08-04 Thomas Koenig + + 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 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 -- cgit v1.2.3