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