1! { dg-do compile }
2
3      SUBROUTINE  SUB  (A,L,YMAX)
4      DIMENSION A(L)
5      YMA=A(1)
6      DO 2 I=1,L,2
7    2 YMA=MAX(YMA,A(I),A(I+1))
8      CALL PROUND(YMA)
9      END
10
11! { dg-final { cleanup-tree-dump "vect" } }
12