! { dg-do run }
! PR 71795 - wrong result when putting an array constructor
! instide an iterator.
     program test

     implicit none
     integer :: i,n
     logical, dimension(1) :: ra
     logical :: rs
     integer, allocatable :: a(:)

     allocate ( a(1) )

     n = 1
     a = 2

     ra = (/ (any(a(i).eq.(/1,2,3/)) ,i=1,n) /)
     if (.not. all(ra)) call abort
     rs = any ( (/ (any(a(i).eq.(/1,2,3/)) ,i=1,n) /) )
     if (.not. rs) call abort
   end program test