+
−! { 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" } }