1 ! Program to test array arguments which depend on other array arguments
3 integer, dimension(5) :: a
, b
10 if (any (b
.ne
. (/4, 7, 10, 13, 16/))) STOP 1
12 subroutine test (x1
, x2
)
14 integer, dimension(1:), intent(in
) :: x1
15 integer, dimension(1:), intent(inout
) :: x2
16 integer, dimension(1:size(x1
)) :: x3