! { dg-do run }
! PR 21354: Rank 7 was not handled correctly by many library
! functions, including in_pack.
program main
real, dimension (2,2,2,2,2,2,2):: a
a = 1.0
call foo(a(2:1:-1,:,:,:,:,:,:))
end program main
subroutine foo(a)
real, dimension (2,2,2,2,2,2,2):: a
end subroutine foo