15 lines
448 B
Fortran
15 lines
448 B
Fortran
! test that -fveclib= is passed to the backend
|
|
! -target aarch64 so that ArmPL is available
|
|
! RUN: %flang -S -Ofast -fveclib=LIBMVEC -o - %s | FileCheck %s
|
|
! RUN: %flang -S -Ofast -fveclib=NoLibrary -o - %s | FileCheck %s --check-prefix=NOLIB
|
|
|
|
subroutine sb(a, b)
|
|
real :: a(:), b(:)
|
|
integer :: i
|
|
do i=1,100
|
|
! check that we used a vectorized call to powf()
|
|
! CHECK: _ZGVbN4vv_powf
|
|
! NOLIB: powf
|
|
a(i) = a(i) ** b(i)
|
|
end do
|
|
end subroutine
|