OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)

Browse Source 
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
This commit is contained in:
Thomas Koenig 2007-08-04 18:20:54 +00:00
parent 26ef8a2cd2
commit 867140ecff
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View 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.

1
gcc/testsuite/gfortran.dg/direct_io_2.f90
View 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