1! { dg-do compile }
2! { dg-options "-O0 -fdump-tree-original" }
3!
4! PR fortran/36909
5!
6! Check that no unneeded internal_unpack is
7! called (INTENT(IN)!).
8!
9program test
10  implicit none
11  integer :: a(3,3)
12  call foo(a(1,:))
13contains
14  subroutine foo(x)
15    integer,intent(in) :: x(3)
16  end subroutine foo
17end program test
18
19! { dg-final { scan-tree-dump-times "_gfortran_internal_pack" 1 "original" } }
20! { dg-final { scan-tree-dump-times "_gfortran_internal_unpack" 0 "original" } }
21