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