1! { dg-do compile } 2! { dg-options "-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