gcc/testsuite/gfortran.dg/pr68627.f

   1 ! { dg-do compile { target { { i?86-*-* x86_64-*-* } && { ! { ia32 } } } } }
   2
   3 ! { dg-options "-Ofast -mavx512f -ffixed-xmm1 -ffixed-xmm2 -ffixed-xmm3 -ffixed-xmm4 -ffixed-xmm5 -ffixed-xmm6 -ffixed-xmm7 -ffixed-xmm8 -ffixed-xmm9 -ffixed-xmm10 -ffixed-xmm11 -ffixed-xmm12 -ffixed-xmm13 -ffixed-xmm14 -ffixed-xmm15" }
   4
   5       IMPLICIT REAL*8(A-H,O-Z)
   6       ALLOCATABLE DD1(:), DD2(:), WY(:,:)
   7       ALLOCATE( DD1(MAX), DD2(MAX), WY(MAX,MAX))
   8          DO J = J1,J2
   9             DO I = I1, I2
  10                DD1(I) = D1 * (WY(I-2,J) - WY(I+2,J) +
  11      >              (WY(I+1,J) - WY(I-1,J)))
  12             END DO
  13             DO I = I1, INT(D2 * D3(I))
  14             END DO
  15          END DO
  16       END
  17
  18 ! { dg-final { scan-assembler-not "vbroadcastsd\[ \\t\]+%xmm\[0-9\]+, %ymm\[0-9\]+" } }