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