gcc/testsuite/gfortran.dg/ipcp-array-1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -fdump-ipa-cp-details -fno-inline -fdump-tree-optimized" }
   3
   4 subroutine bar (a, b, n)
   5   integer :: a(n), b(n)
   6   call foo (a, b)
   7 contains
   8 subroutine foo (a, b)
   9   integer :: a(:), b(:)
  10   a = b
  11 end subroutine
  12 end
  13
  14 ! { dg-final { scan-ipa-dump "Creating a specialized node of foo" "cp" } }
  15 ! { dg-final { scan-ipa-dump-times "Aggregate replacements\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=" 2 "cp" } }
  16 ! { dg-final { scan-tree-dump-not "stride;" "optimized" } }
  17 ! { dg-final { scan-tree-dump-not "lbound;" "optimized" } }