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

gcc/testsuite/ChangeLog

+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

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

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

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

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

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

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

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