1! { dg-do compile }
2! { dg-require-effective-target vect_float }
3
4SUBROUTINE KEEL(RBOUND)
5  REAL, DIMENSION(0:100) :: RBOUND
6  DO N = 1, NP1
7     RBOUND(N) = RBOUND(N-1) + 1
8  END DO
9  DO N = 1, NS
10     WRITE (16,'(I5)') SRAD(N)
11  END DO
12END SUBROUTINE KEEL
13
14! { dg-final { scan-tree-dump-times "vectorized 0 loops" 1 "vect" } }
15