* gfortran.dg/forall_1.f90: Set previously uninitialized variable.

From-SVN: r100632

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 96bc58183ab5c25e208567da06314c978efc7930..4fdb132de9729201cb83c4c99ab6c93ac08b13ab 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2005-06-05  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
 
+       * gfortran.dg/forall_1.f90: Set previously uninitialized variable.
+       
        PR fortran/21912
        * gfortran.dg/array_constructor_4.f90: New test.
 

diff --git a/gcc/testsuite/gfortran.dg/forall_1.f90 b/gcc/testsuite/gfortran.dg/forall_1.f90
index f657dcb279e5416bdcdbe5ce76272e5d2a50a80d..35fcfdd7fd2e0653b43e64bc5d47e6ae89ffb545 100644 (file)
--- a/gcc/testsuite/gfortran.dg/forall_1.f90
+++ b/gcc/testsuite/gfortran.dg/forall_1.f90
@@ -7,6 +7,7 @@ type a
 end type a
 type(a) :: a1(10), a2(5,5)
 
+i1 = (/ 0, 1, 2, 3, 4, 0, 6, 7, 8, 9, 10, 0, 0, 13, 14 /)
 forall (i=1:15, i1(i) /= 0)
    i1(i) = 0
 end forall