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