2 ! PR 71795 - wrong result when putting an array constructor
8 logical, dimension(1) :: ra
10 integer, allocatable
:: a(:)
17 ra
= (/ (any(a(i
).eq
.(/1,2,3/)) ,i
=1,n
) /)
18 if (.not
. all(ra
)) STOP 1
19 rs
= any ( (/ (any(a(i
).eq
.(/1,2,3/)) ,i
=1,n
) /) )