1! Program to test 2subroutine test (p) 3 integer, dimension (3) :: p 4 5 if (any (p .ne. (/ 2, 4, 6/))) call abort 6end subroutine 7 8program partparm 9 implicit none 10 integer, dimension (2, 3) :: a 11 external test 12 13 a = reshape ((/ 1, 2, 3, 4, 5, 6/), (/ 2, 3/)) 14 call test (a(2, :)) 15end program 16