From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sun, 5 Jun 2005 18:56:02 +0000 (+0200)
Subject: * gfortran.dg/forall_1.f90: Set previously uninitialized variable.
X-Git-Tag: releases/gcc-4.0.1~96
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a5602a8b7165228e1b82699241ba3b51b17b9fef;p=thirdparty%2Fgcc.git

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

From-SVN: r100633
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 31d6b3043543..4c073a79b684 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-05  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* gfortran.dg/forall_1.f90: Set previously uninitialized variable.
+
 2005-06-05  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/21619
diff --git a/gcc/testsuite/gfortran.dg/forall_1.f90 b/gcc/testsuite/gfortran.dg/forall_1.f90
index f657dcb279e5..35fcfdd7fd2e 100644
--- 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