! PR middle-end/102860
! { dg-do compile { target { powerpc*-*-* } } }
! { dg-require-effective-target powerpc_vsx_ok } 
! { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power9" } } 
! { dg-options "-O2 -mcpu=power9" } 

function foo(a)
  integer(kind=4) :: a(1024)
  a(:) = modulo (a(:), 39)
end function