diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-08-04 18:20:54 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-08-04 18:20:54 +0000 |
| commit | 867140ecff102a03de8736354b3697736901d049 (patch) | |
| tree | 5504422c41af29a1046ee4a37afc864815224e23 /gcc | |
| parent | 26ef8a2cd2252052953cce299ff5cc9e572d3996 (diff) | |
| download | gcc-867140ecff102a03de8736354b3697736901d049.tar.gz | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/direct_io_2.f90 | 1 |
2 files changed, 8 insertions, 1 deletions
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 <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 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 |