1! { dg-do run }
2! PR 21354:  Rank 7 was not handled correctly by many library
3!            functions, including in_pack.
4program main
5  real, dimension (2,2,2,2,2,2,2):: a
6  a = 1.0
7  call foo(a(2:1:-1,:,:,:,:,:,:))
8end program main
9
10subroutine foo(a)
11  real, dimension (2,2,2,2,2,2,2):: a
12end subroutine foo
13