| C { dg-do compile } | |
| C { dg-additional-options "-march=armv8.2-a+sve" { target { aarch64*-*-* } } } | |
| SUBROUTINE HMU (H1) | |
| COMMON DD(107) | |
| DIMENSION H1(NORBS,*) | |
| DO 70 J1 = IA,I1 | |
| H1(I1,J1) = 0 | |
| JO1 = J1 | |
| IF (JO1.EQ.1) THEN | |
| H1(I1,J1) = DD(NI) | |
| END IF | |
| 70 CONTINUE | |
| END |