gcc/testsuite/gfortran.dg/internal_pack_16.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-O0 -fdump-tree-original" }
   3 ! PR 59345 - pack/unpack was not needed here.
   4 SUBROUTINE S1(A)
   5  REAL :: A(3)
   6  CALL S2(-A)
   7 END SUBROUTINE
   8 ! { dg-final { scan-tree-dump-not "_gfortran_internal_pack" "original" } }
   9 ! { dg-final { scan-tree-dump-not "_gfortran_internal_unpack" "original" } }