diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-04 18:20:54 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-04 18:20:54 +0000 |
| commit | 5b011f844d5e5ed698bf569ae9787374baddbb41 (patch) | |
| tree | 5504422c41af29a1046ee4a37afc864815224e23 /gcc | |
| parent | e2d2dbf98657c0b3459d5ea3965e309b13aaeb6f (diff) | |
| download | ppe42-gcc-5b011f844d5e5ed698bf569ae9787374baddbb41.tar.gz ppe42-gcc-5b011f844d5e5ed698bf569ae9787374baddbb41.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127210 138bc75d-0d04-0410-961f-82ee72b054a4
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 |
