From adac7e92d894e6a53bc85ec95b389fe242143148 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sun, 5 Jun 2005 20:49:22 +0200 Subject: [PATCH] * gfortran.dg/forall_1.f90: Set previously uninitialized variable. From-SVN: r100632 --- gcc/testsuite/ChangeLog | 2 ++ gcc/testsuite/gfortran.dg/forall_1.f90 | 1 + 2 files changed, 3 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 96bc58183ab..4fdb132de97 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,7 @@ 2005-06-05 Tobias Schl"uter + * 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 f657dcb279e..35fcfdd7fd2 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 -- 2.30.2