! { dg-do compile } | |
! { dg-require-effective-target vect_float } | |
SUBROUTINE KEEL(RBOUND) | |
REAL, DIMENSION(0:100) :: RBOUND | |
DO N = 1, NP1 | |
RBOUND(N) = RBOUND(N-1) + 1 | |
END DO | |
DO N = 1, NS | |
WRITE (16,'(I5)') SRAD(N) | |
END DO | |
END SUBROUTINE KEEL | |
! { dg-final { scan-tree-dump-times "vectorized 0 loops" 1 "vect" } } |