gcc/testsuite/gfortran.dg/pr52678.f

   1 ! { dg-do compile }
   2 ! { dg-options "-O -ftree-vectorize" }
   3       SUBROUTINE OpenAD_set_ref_state(DRF, RHOFACF, RHOFACC)
   4       real(8) DRF(1 : 15)
   5       real(8) RHOFACF(1 : 16)
   6       real(8) RHOFACC(1 : 15)
   7       integer, dimension(:), allocatable :: oad_it
   8       integer :: oad_it_ptr
   9       INTEGER(8) OpenAD_Symbol_188
  10       INTEGER(4) K
  11           OpenAD_Symbol_188 = 0
  12           DO K = 2, 15, 1
  13             RHOFACF(INT(K)) = ((RHOFACC(K) * DRF(K + (-1)) + RHOFACC(K +
  14      + (-1)) * DRF(K)) /(DRF(K) + DRF(K + (-1))))
  15             OpenAD_Symbol_188 = (INT(OpenAD_Symbol_188) + INT(1))
  16           END DO
  17           oad_it(oad_it_ptr) = OpenAD_Symbol_188
  18       end subroutine OpenAD_set_ref_state