------- Comment #1 from burnus at gcc dot gnu dot org 2010-07-02 20:41 -------
Index: gfortran.fortran-torture/execute/data.f90
===================================================================
--- gfortran.fortran-torture/execute/data.f90 (Revision 161742)
+++ gfortran.fortran-torture/execute/data.f90
@@ -25,7 +25,7 @@
! array element reference
data tmp2(2)%t1(2)%a(3), tmp2(2)%t1(2)%a(1)/223,221/
- if (any(tmp2(1)%t1(1)%a .ne. (/111,0,113,0/))) call abort
+ if (any(tmp2(1)%t1(1)%a(2:4:2) .ne. (/111,113/))) call abort
if (tmp2(1)%t1(1)%r .ne. 0.0) call abort
if (tmp2(1)%b .ne. 10) call abort
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44792
