--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/pr53787.f90	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,20 @@
+! { 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" } }