From 867140ecff102a03de8736354b3697736901d049 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 4 Aug 2007 18:20:54 +0000 Subject: [PATCH] re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues) 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. From-SVN: r127210 --- gcc/testsuite/ChangeLog | 8 +++++++- gcc/testsuite/gfortran.dg/direct_io_2.f90 | 1 + 2 files changed, 8 insertions(+), 1 deletion(-) 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