mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-13 21:01:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/31297 (Use of uninitialized variables in libgfortran's I/O)

Browse Source 
2007-03-25  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/31297
	* gfortran.dg/backspace_5.f:  Initialize variable(s).
	* gfortran.dg/backspace_6.f:  Likewise.
	* gfortran.dg/char_bounds_check_fail_1: Likewise.
	* gfortran.dg/direct_io_2.f90:  Likewise.
	* gfortran.dg/write_back.f:  Likewise.
	* gfortran.dg/write_rewind_2.f:  Likewise.
	* gfortran.dg/write_rewind_1.f:  Likewise.
	* gfortran.dg/write_rewind_2.f:  Likewise.

From-SVN: r123200
This commit is contained in:
Thomas Koenig 2007-03-25 20:17:51 +00:00
parent cdbd119b94
commit da631596c3
8 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,15 @@
2007-03-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/31297
* gfortran.dg/backspace_5.f: Initialize variable(s).
* gfortran.dg/backspace_6.f: Likewise.
* gfortran.dg/char_bounds_check_fail_1: Likewise.
* gfortran.dg/direct_io_2.f90: Likewise.
* gfortran.dg/write_back.f: Likewise.
* gfortran.dg/write_rewind_2.f: Likewise.
* gfortran.dg/write_rewind_1.f: Likewise.
* gfortran.dg/write_rewind_2.f: Likewise.
2007-03-25 Dorit Nuzman <dorit@il.ibm.com>
PR tree-optimization/30784

3
gcc/testsuite/gfortran.dg/backspace_5.f
View File

@ -5,6 +5,7 @@
program test
integer,parameter :: datasize = 1000
dimension idata(datasize)
idata = -42
open (11, status="scratch", form="unformatted")
idata(1) = -1
idata( datasize) = -2
@ -31,4 +32,4 @@
call abort()
1010 stop
end

1
gcc/testsuite/gfortran.dg/backspace_6.f
View File

@ -5,6 +5,7 @@
program test
integer,parameter :: datasize = 5000
dimension idata(datasize)
idata = -42
open (11, status="scratch", form="unformatted")
idata(1) = -1
idata(datasize) = -2

1
gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90
View File

@ -6,6 +6,7 @@ program bound_check
character*10 zz
i = 2
j = i+9
zz = ' '
zz(i:j) = 'abcdef'
print * , zz
end

1
gcc/testsuite/gfortran.dg/direct_io_2.f90
View File

@ -6,6 +6,7 @@
PROGRAM FM413
IMPLICIT LOGICAL (L)
IMPLICIT CHARACTER*14 (C)
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
IREC = 13

1
gcc/testsuite/gfortran.dg/write_back.f
View File

@ -5,6 +5,7 @@
program test
integer at,eof
dimension idata(5)
idata = -42
open(unit=11,form='unformatted')
write(11)idata
write(11)idata

1
gcc/testsuite/gfortran.dg/write_rewind_1.f
View File

@ -4,6 +4,7 @@
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
program test
dimension idata(100)
idata = -42
open(unit=11,form='unformatted')
write(11)idata
write(11)idata

1
gcc/testsuite/gfortran.dg/write_rewind_2.f
View File

@ -4,6 +4,7 @@
! Ranta. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
program test
dimension idata(1011)
idata = -42
open(unit=11,form='unformatted')
idata(1) = -705
idata( 1011) = -706