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