diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-03-25 20:17:51 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-03-25 20:17:51 +0000 |
| commit | da631596c377f103fc722aac18bb7b36a8dc3e4a (patch) | |
| tree | 56c4ea28efe81f3a6774f45ebbdfe7eedf64c180 /gcc | |
| parent | cdbd119b94ef8b2c31803d44d49e34c74d43fe67 (diff) | |
| download | gcc-da631596c377f103fc722aac18bb7b36a8dc3e4a.zip gcc-da631596c377f103fc722aac18bb7b36a8dc3e4a.tar.gz gcc-da631596c377f103fc722aac18bb7b36a8dc3e4a.tar.bz2 | |
re PR libfortran/31297 (Use of uninitialized variables in libgfortran's I/O)
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 12 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/backspace_5.f | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/backspace_6.f | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/direct_io_2.f90 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_back.f | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_rewind_1.f | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_rewind_2.f | 1 |
8 files changed, 20 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d8b23d8..370f5c7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/backspace_5.f b/gcc/testsuite/gfortran.dg/backspace_5.f index a651a9e..4cd657a 100644 --- a/gcc/testsuite/gfortran.dg/backspace_5.f +++ b/gcc/testsuite/gfortran.dg/backspace_5.f @@ -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 -
\ No newline at end of file + diff --git a/gcc/testsuite/gfortran.dg/backspace_6.f b/gcc/testsuite/gfortran.dg/backspace_6.f index 51470d5..4e594f0 100644 --- a/gcc/testsuite/gfortran.dg/backspace_6.f +++ b/gcc/testsuite/gfortran.dg/backspace_6.f @@ -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 diff --git a/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 b/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 index 8afdae3..bd5552c 100644 --- a/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 +++ b/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 @@ -6,6 +6,7 @@ program bound_check character*10 zz i = 2 j = i+9 + zz = ' ' zz(i:j) = 'abcdef' print * , zz end diff --git a/gcc/testsuite/gfortran.dg/direct_io_2.f90 b/gcc/testsuite/gfortran.dg/direct_io_2.f90 index 0ebfd7d..08a7d0a 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) + 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 diff --git a/gcc/testsuite/gfortran.dg/write_back.f b/gcc/testsuite/gfortran.dg/write_back.f index 2776d20..a491e24 100644 --- a/gcc/testsuite/gfortran.dg/write_back.f +++ b/gcc/testsuite/gfortran.dg/write_back.f @@ -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 diff --git a/gcc/testsuite/gfortran.dg/write_rewind_1.f b/gcc/testsuite/gfortran.dg/write_rewind_1.f index b2ece6b..0e23187 100644 --- a/gcc/testsuite/gfortran.dg/write_rewind_1.f +++ b/gcc/testsuite/gfortran.dg/write_rewind_1.f @@ -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 diff --git a/gcc/testsuite/gfortran.dg/write_rewind_2.f b/gcc/testsuite/gfortran.dg/write_rewind_2.f index 6daf093..501995c 100644 --- a/gcc/testsuite/gfortran.dg/write_rewind_2.f +++ b/gcc/testsuite/gfortran.dg/write_rewind_2.f @@ -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 |