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