diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-05 18:49:22 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-05 18:49:22 +0000 |
| commit | 8e0ec57515351c423c9b6a71fbe86b070de57e80 (patch) | |
| tree | a898d0106abb9c95b81d2104f503df0157d1a0ae /gcc/testsuite/gfortran.dg/forall_1.f90 | |
| parent | f3830c7c61629f6c8d548e0b0765b5d991449b3a (diff) | |
| download | gcc-8e0ec57515351c423c9b6a71fbe86b070de57e80.tar.gz | |
* gfortran.dg/forall_1.f90: Set previously uninitialized variable.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100632 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/forall_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/forall_1.f90 | 1 |
1 files changed, 1 insertions, 0 deletions
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 |