! { 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" } }
! { dg-final { cleanup-ipa-dump "cp" } }