1 ! Like array_constructor_6.f90, but test for nested iterators.
7 subroutine build (order)
10 call test (order, (/ (((j + 100) * i, j = 1, i), i = 1, order) /))
11 call test (9, (/ (((j + 100) * i, j = 1, i), i = 1, 9) /))
12 call test (3, (/ 101, 202, 204, 303, 306, 309 /))
15 subroutine test (order, values)
16 integer, dimension (:) :: values
17 integer :: order, i, j
19 if (size (values, dim = 1) .ne. order * (order + 1) / 2) call abort
22 if (values (i * (i - 1) / 2 + j) .ne. (j + 100) * i) call abort