pr102860.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pr102860.f90

blob: 6b1feaa9d7945e776edaef04e3fe4c06e7a9d15c (plain)

! PR middle-end/102860
! { dg-do compile { target { powerpc*-*-* } } }
! { dg-require-effective-target powerpc_vsx_ok } 
! { dg-options "-O2 -mdejagnu-cpu=power10" } 

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