1! PR 77848: Verify versioning is on when vectorization fails
2! { dg-do compile }
3! { dg-options "-O3 -ffast-math -fdump-tree-ifcvt -fdump-tree-vect-details" }
4! { dg-additional-options "-mzarch" { target { s390*-*-* } } }
5
6      subroutine sub(x,a,n,m)
7      implicit none
8      real*8 x(*),a(*),atemp
9      integer i,j,k,m,n
10      real*8 s,t,u,v
11      do j=1,m
12         atemp=0.d0
13         do i=1,n
14            if (abs(a(i)).gt.atemp) then
15               atemp=a(i)
16               k = i
17            end if
18         enddo
19         call dummy(atemp,k)
20      enddo
21      return
22      end
23
24! { dg-final { scan-tree-dump "LOOP_VECTORIZED" "ifcvt" } }
25! { dg-final { scan-tree-dump "vectorized 0 loops in function" "vect" } }
26