40 lines
1.3 KiB
Fortran
40 lines
1.3 KiB
Fortran
! RUN: %flang_fc1 -flang-experimental-hlfir -triple powerpc64le-unknown-unknown -target-cpu pwr10 -emit-llvm %s -o - | FileCheck --check-prefixes="LLVMIR" %s
|
|
! REQUIRES: target=powerpc{{.*}}
|
|
|
|
subroutine test_xxmfacc()
|
|
use, intrinsic :: mma
|
|
implicit none
|
|
__vector_quad :: cq
|
|
call mma_xxmfacc(cq)
|
|
end subroutine test_xxmfacc
|
|
|
|
!CHECK-LABEL: @test_xxmfacc_
|
|
!LLVMIR: %1 = alloca <512 x i1>, i64 1, align 64
|
|
!LLVMIR: %2 = load <512 x i1>, ptr %1, align 64
|
|
!LLVMIR: %3 = call <512 x i1> @llvm.ppc.mma.xxmfacc(<512 x i1> %2)
|
|
!LLVMIR: store <512 x i1> %3, ptr %1, align 64
|
|
|
|
subroutine test_xxmtacc()
|
|
use, intrinsic :: mma
|
|
implicit none
|
|
__vector_quad :: cq
|
|
call mma_xxmtacc(cq)
|
|
end subroutine test_xxmtacc
|
|
|
|
!CHECK-LABEL: @test_xxmtacc_
|
|
!LLVMIR: %1 = alloca <512 x i1>, i64 1, align 64
|
|
!LLVMIR: %2 = load <512 x i1>, ptr %1, align 64
|
|
!LLVMIR: %3 = call <512 x i1> @llvm.ppc.mma.xxmtacc(<512 x i1> %2)
|
|
!LLVMIR: store <512 x i1> %3, ptr %1, align 64
|
|
|
|
subroutine test_xxsetaccz()
|
|
use, intrinsic :: mma
|
|
implicit none
|
|
__vector_quad :: cq
|
|
call mma_xxsetaccz(cq)
|
|
end subroutine test_xxsetaccz
|
|
|
|
!CHECK-LABEL: @test_xxsetaccz_
|
|
!LLVMIR: %1 = alloca <512 x i1>, i64 1, align 64
|
|
!LLVMIR: %2 = call <512 x i1> @llvm.ppc.mma.xxsetaccz()
|
|
!LLVMIR: store <512 x i1> %2, ptr %1, align 64
|