mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-19 01:40:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r100632
This commit is contained in:
Tobias Schlüter 2005-06-05 20:49:22 +02:00 committed by Tobias Schlüter
parent d5ab567508
commit adac7e92d8
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/testsuite/ChangeLog
View File

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

1
gcc/testsuite/gfortran.dg/forall_1.f90
View File

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