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
19