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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123200 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d8b23d8..370f5c7 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 a651a9e..4cd657a 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 51470d5..4e594f0 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 8afdae3..bd5552c 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 0ebfd7d..08a7d0a 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 2776d20..a491e24 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 b2ece6b..0e23187 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 6daf093..501995c 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