! Program to test | |
subroutine test (p) | |
integer, dimension (3) :: p | |
if (any (p .ne. (/ 2, 4, 6/))) call abort | |
end subroutine | |
program partparm | |
implicit none | |
integer, dimension (2, 3) :: a | |
external test | |
a = reshape ((/ 1, 2, 3, 4, 5, 6/), (/ 2, 3/)) | |
call test (a(2, :)) | |
end program |