gcc/testsuite/gfortran.dg/pr56049.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fdump-tree-optimized" }
   3
   4 program inline
   5
   6     integer i
   7     integer a(8,8), b(8,8)
   8
   9     a = 0
  10     do i = 1, 10000000
  11         call add(b, a, 1)
  12         a = b
  13     end do
  14
  15     print *, a
  16
  17 contains
  18
  19     subroutine add(b, a, o)
  20         integer, intent(inout) :: b(8,8)
  21         integer, intent(in) :: a(8,8), o
  22         b = a + o
  23     end subroutine add
  24
  25 end program inline
  26
  27 ! Check there's no loop left, just two bb 2 in two functions.
  28 ! { dg-final { scan-tree-dump-times "<bb \[0-9\]*>" 2 "optimized" } }
  29 ! { dg-final { scan-tree-dump-times "<bb 2>" 2 "optimized" } }