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

From-SVN: r100632

* gfortran.dg/forall_1.f90: Set previously uninitialized variable.
From-SVN: r100632
adac7e92 · Tobias Schlüter · Tobias Schlüter · d5ab5675 · adac7e92 · adac7e92
Commit adac7e92 authored Jun 05, 2005 by Tobias Schlüter Committed by Tobias Schlüter Jun 05, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

gcc/testsuite/ChangeLog
+2 -0

gcc/testsuite/gfortran.dg/forall_1.f90
+1 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
 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.


--- 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