gcc/testsuite/gfortran.dg/vect/Ofast-pr50414.f90

   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" } }