1! { dg-do compile } 2! { dg-options "-fdump-tree-original" } 3! 4! Test the fix for PR43173, where unnecessary calls to internal_pack/unpack 5! were being produced below. These references are contiguous and so do not 6! need a temporary. 7! 8! Contributed Tobias Burnus <burnus@gcc.gnu.org> 9! 10 REAL, allocatable :: ot(:) 11 integer :: time_steps 12 13 call foo (ot) ! OK, no temporary 14 call foo (ot(0:5:1)) ! Was an unnecessary temporary 15 call foo (ot(0:time_steps)) ! Was an unnecessary temporary 16 end 17! { dg-final { scan-tree-dump-times "unpack" 0 "original" } } 18! { dg-final { cleanup-tree-dump "original" } } 19