1C { dg-do compile } 2C { dg-additional-options "-march=armv8.2-a+sve" { target { aarch64*-*-* } } } 3 SUBROUTINE HMU (H1) 4 COMMON DD(107) 5 DIMENSION H1(NORBS,*) 6 DO 70 J1 = IA,I1 7 H1(I1,J1) = 0 8 JO1 = J1 9 IF (JO1.EQ.1) THEN 10 H1(I1,J1) = DD(NI) 11 END IF 12 70 CONTINUE 13 END 14