gcc/testsuite/gfortran.dg/pr114883.f90

   1 ! PR tree-optimization/114883
   2 ! { dg-do compile }
   3 ! { dg-options "-O2 -fvect-cost-model=cheap" }
   4 ! { dg-additional-options "-march=x86-64-v4" { target i?86-*-* x86_64-*-* } }
   5
   6 subroutine pr114883_1(a, b, c, d, e, f, g, h, o)
   7   real(8) :: c(1011), d(1011), e(0:1011)
   8   real(8) :: p, q, f, r, g(1011), h(1011), b, bar
   9   integer :: o(100), a, t, u
  10   p = 0.0_8
  11   r = bar()
  12   u = 1
  13   do i = 1,a
  14     do k = 1,1011
  15       km1 = max0(k-1,1)
  16       h(k) = c(k) * e(k-1) * d(km1)
  17       f = g(k) + h(k)
  18       if(f.gt.1.e-6)then
  19         p = min(p,r)
  20       endif
  21     end do
  22     q = 0.9_8 * p
  23     t = integer(b/q + 1)
  24     if(t>100)then
  25       u = t
  26     endif
  27     o(u) = o(u) + 1
  28   end do
  29 end subroutine pr114883_1
  30 subroutine pr114883_2(a, b, c, d, e, f, g, h, o)
  31   real(8) :: c(1011), d(1011), e(0:1011)
  32   real(8) :: p, q, f, r, g(1011), h(1011), b, bar
  33   integer :: o(100), a, t, u
  34   p = 0.0_8
  35   r = bar()
  36   u = 1
  37   do i = 1,a
  38     do k = 1,1011
  39       km1 = max0(k-1,1)
  40       h(k) = c(k) * e(k-1) * d(km1)
  41       f = g(k) + h(k)
  42       if(f.gt.1.e-6)then
  43         p = max(p,r)
  44       endif
  45     end do
  46     q = 0.9_8 * p
  47     t = integer(b/q + 1)
  48     if(t>100)then
  49       u = t
  50     endif
  51     o(u) = o(u) + 1
  52   end do
  53 end subroutine pr114883_2