blob: f366a30bf59e01428748b63789c732bb36fa484a [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O3 -fdump-ipa-cp-details -fno-inline -fwhole-program" }
real x(10)
n = 10
call init(x,n)
print *, x
end program
subroutine init(x, n)
real x(10)
do i=1,n
x(i) = i*i + 1
enddo
return
end subroutine init
! { dg-final { scan-ipa-dump "Creating a specialized node of init" "cp" } }
! { dg-final { scan-ipa-dump-times "Aggregate replacements" 2 "cp" } }