1! { dg-do compile }
2! { dg-additional-options "-march=armv8.3-a" { target aarch64-*-* } }
3SUBROUTINE CLAREF(A, WANTZ, Z, ICOL1, ITMP1, ITMP2, T1, T2, V2)
4LOGICAL            BLOCK, WANTZ
5COMPLEX            T1, T2, V2
6COMPLEX            A(LDA, *), VECS, Z(LDA, *)
7COMPLEX            SUM
8LOGICAL            LSAME
9IF (LSAME) THEN
10      DO 30 K = ITMP1, ITMP2, 3
11         T1 = VECS0
1230       CONTINUE
13ELSE
14   IF (BLOCK) THEN
15      DO 90 K = ITMP1, ITMP2 - 1, 3
16         A(J, ICOL1) = ITMP1
17         IF (WANTZ) THEN
18            DO 80 J = ITMP1, ITMP2
19               SUM =  ICOL1
20               Z(J, 3) = V23
2180             CONTINUE
22         END IF
2390       CONTINUE
24      DO 120 K = ITMP1, ITMP2
25         V2 = VECS()
26         DO 100 J = ITMP1, ITMP2
27            A(J, ICOL1) = A(J, ICOL1) - SUM
28100          CONTINUE
29         IF (WANTZ) THEN
30            DO 110 J = 1, 3
31               SUM = Z(J, ICOL1)
32               Z(J, ICOL1) = 0
33110             CONTINUE
34         END IF
35         ICOL1 = ICOL1 + 1
36120       CONTINUE
37   ELSE
38      DO 130 J = ITMP1, ITMP2
39         SUM = T1 * A(J, ICOL1) + T2 * A(J, 1) + V2 * A(J, 2)
40         A(J, ICOL1) = SUM
41         A(J, ICOL1 + 2) = SUM * V1
42130       CONTINUE
43   END IF
44END IF
45END
46