gcc/testsuite/gfortran.dg/internal_pack_11.f90

   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" } }