1 ! Like array_constructor_6.f90, but check integer(8) iterators.
4 integer (kind
= 8) :: i
, l8
, u8
, step8
5 integer (kind
= 4) :: l4
, step4
6 integer (kind
= 8), parameter :: big
= 10000000000_8
11 call test ((/ (i
, i
= l4
, u8
, step4
) /), l4
+ 0_8, u8
, step4
+ 0_8)
16 call test ((/ (i
, i
= l8
, u8
, step8
) /), l8
, u8
, step8
)
21 call test ((/ (i
, i
= u8
, l8
, step4
) /), u8
, l8
, step4
+ 0_8)
26 call test ((/ (i
, i
= u8
, l8
, step8
) /), u8
, l8
, step8
)
31 call test ((/ (i
, i
= u8
, l4
, step4
) /), u8
, l4
+ 0_8, step4
+ 0_8)
36 call test ((/ (i
, i
= u8
, l4
, step8
) /), u8
, l4
+ 0_8, step8
)
38 subroutine test (a
, l
, u
, step
)
39 integer (kind
= 8), dimension (:), intent (in
) :: a
40 integer (kind
= 8), intent (in
) :: l
, u
, step
41 integer (kind
= 8) :: i
46 if (a (j
) .ne
. i
) STOP 1
49 if (size (a
, 1) .ne
. j
- 1) STOP 2