mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
14 lines
404 B
Fortran
14 lines
404 B
Fortran
! { dg-options "-O3 -fdump-tree-lversion-details" }
|
|
|
|
! Check that versioning is applied to a gather-like reduction operation.
|
|
|
|
function f(x, index, n)
|
|
integer :: n
|
|
real :: x(:)
|
|
integer :: index(n)
|
|
f = sum(x(index(:)))
|
|
end function f
|
|
|
|
! { dg-final { scan-tree-dump-times {want to version containing loop} 1 "lversion" } }
|
|
! { dg-final { scan-tree-dump-times {versioned this loop} 1 "lversion" } }
|