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