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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d8b23d858002e539d3ac993a704ced1901e61cfd..370f5c7b4f4ba135654955692b6094b3e0c51d57 100644 (file)
--- 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 a651a9ed2f0e0d8f3e10aeb0677159f34d9bec57..4cd657a78389d21c13a2e2920f469331249693ff 100644 (file)
--- 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 51470d595b585372e580ef3ba6c1e3c9931d4a1f..4e594f0a8c6a2b345d54656fafccaaddd6a07ebb 100644 (file)
--- 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 8afdae32486406aeb7ddc4e682775fde6166f6bd..bd5552c0ea6529afe26f7e465e2fe290a11a1ce4 100644 (file)
--- 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 0ebfd7d83517def3b446790657dff8e6a337cb94..08a7d0a2ddc7fcf161091bcceec0d24715de379e 100644 (file)
--- 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 2776d20b87cf0800aa4e641f38127ceaf2a1502e..a491e24a808c056f8ae7ab9493a9cc88ce29215c 100644 (file)
--- 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 b2ece6be13ad4420113fd8b9efe6dc864b8cd23b..0e231875a72c7c9786d6239e0946ae198d30f604 100644 (file)
--- 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 6daf093fb7fd74740a0ebb83ad0aed95dbaa5e69..501995c6eb53ddf129199d64618f11238e77fd0f 100644 (file)
--- 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