Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr102860.f90
blob: 6b1feaa9d7945e776edaef04e3fe4c06e7a9d15c [
file
] [
log
] [
blame
]
!
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