1 ! { dg-do compile { target i?86-*-* x86_64-*-* } }
2 ! { dg-options "-O3 -mavx -mvzeroupper -mtune=generic -dp" }
4 SUBROUTINE func(kts, kte, qrz, qiz, rho)
6 INTEGER, INTENT(IN) :: kts, kte
7 REAL, DIMENSION(kts:kte), INTENT(INOUT) :: qrz, qiz, rho
9 REAL, DIMENSION(kts:kte) :: praci, vtiold
11 INTEGER :: min_q, max_q, var
21 qrz(min_q-1)=qrz(min_q-1)+fluxout
25 vtiold(k)= (rho(k))**0.16
31 ! { dg-final { scan-assembler "avx_vzeroupper" } }