1! { dg-do compile { target { aarch64*-*-* } } } 2! { dg-require-effective-target le } 3! { dg-additional-options "-march=armv8.3-a -O1 -ftree-slp-vectorize" } 4 5SUBROUTINE ZLAHQR2(H, LDH, H22, T1) 6 7 INTEGER LDH 8 COMPLEX*16 H(LDH, *) 9 10 INTEGER NR 11 COMPLEX*16 H22, SUM, T1, V2 12 13 COMPLEX*16 V( 3 ) 14 15 EXTERNAL ZLARFG 16 INTRINSIC DCONJG 17 18 V2 = H22 19 CALL ZLARFG(T1) 20 SUM = DCONJG(T1) * H(1, 1) 21 H(1, 1) = SUM * V2 22 23 RETURN 24END 25