gcc/testsuite/gfortran.dg/lto/pr46036_0.f90

   1 ! { dg-lto-do link }
   2 ! { dg-lto-options {{ -O -flto -ftree-vectorize }} }
   3
   4 function no_of_edges(self) result(res)
   5   integer(kind=kind(1)) :: edge_bit_string
   6   integer(kind=kind(1)) :: res
   7   integer(kind=kind(1)) :: e
   8   do e = 0, 11
   9      if (.not. btest(edge_bit_string,e)) cycle
  10      res = res + 1
  11   end do
  12 end function no_of_edges
  13
  14 end program