! PR 12840. Make sure that array constructors can be used to determine ! the bounds of a scalarization loop. ! { dg-do run } program main implicit none call build (11) contains subroutine build (order) integer :: order, i call test (order, (/ (i * 2, i = 1, order) /)) call test (17, (/ (i * 2, i = 1, 17) /)) call test (5, (/ 2, 4, 6, 8, 10 /)) end subroutine build subroutine test (order, values) integer, dimension (:) :: values integer :: order, i if (size (values, dim = 1) .ne. order) call abort do i = 1, order if (values (i) .ne. i * 2) call abort end do end subroutine test end program main