embedded-5_0-branch/gcc/testsuite/gfortran.dg/pr53787.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fdump-ipa-cp-details -fno-inline -fwhole-program" }
   3
   4   real x(10)
   5   n = 10
   6   call init(x,n)
   7   print *, x
   8 end program
   9
  10 subroutine init(x, n)
  11   real x(10)
  12   do i=1,n
  13      x(i) = i*i + 1
  14   enddo
  15
  16   return
  17 end subroutine init
  18
  19 ! { dg-final { scan-ipa-dump "Creating a specialized node of init" "cp" } }
  20 ! { dg-final { scan-ipa-dump-times "Aggregate replacements" 2 "cp" } }
  21 ! { dg-final { cleanup-ipa-dump "cp" } }