1! Program to test
2subroutine test (p)
3   integer, dimension (3) :: p
4
5   if (any (p .ne. (/ 2, 4, 6/))) STOP 1
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