diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d8b23d858002..370f5c7b4f4b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,15 @@ +2007-03-25 Thomas Koenig + + 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 PR tree-optimization/30784 diff --git a/gcc/testsuite/gfortran.dg/backspace_5.f b/gcc/testsuite/gfortran.dg/backspace_5.f index a651a9ed2f0e..4cd657a78389 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 51470d595b58..4e594f0a8c6a 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 8afdae324864..bd5552c0ea65 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 0ebfd7d83517..08a7d0a2ddc7 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 2776d20b87cf..a491e24a808c 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 b2ece6be13ad..0e231875a72c 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 . 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 6daf093fb7fd..501995c6eb53 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 . program test dimension idata(1011) + idata = -42 open(unit=11,form='unformatted') idata(1) = -705 idata( 1011) = -706