212527c00b
Implementation details: * Add PrefetchOp in FirOps * Handle PrefetchOp in FIR Lowering and also pass required default values * Handle PrefetchOp in CodeGen.cpp * Add required tests
40 lines
1.6 KiB
Fortran
40 lines
1.6 KiB
Fortran
!===----------------------------------------------------------------------===!
|
|
! This directory can be used to add Integration tests involving multiple
|
|
! stages of the compiler (for eg. from Fortran to LLVM IR). It should not
|
|
! contain executable tests. We should only add tests here sparingly and only
|
|
! if there is no other way to test. Repeat this message in each test that is
|
|
! added to this directory and sub-directories.
|
|
!===----------------------------------------------------------------------===!
|
|
|
|
! RUN: %flang_fc1 -emit-llvm -o - %s | FileCheck %s --check-prefixes=LLVM
|
|
|
|
!===============================================================================
|
|
! Test lowering of prefetch directive
|
|
!===============================================================================
|
|
|
|
subroutine test_prefetch_01()
|
|
! LLVM: {{.*}} = alloca i32, i64 1, align 4
|
|
! LLVM: %[[VAR_J:.*]] = alloca i32, i64 1, align 4
|
|
! LLVM: %[[VAR_I:.*]] = alloca i32, i64 1, align 4
|
|
! LLVM: %[[VAR_A:.*]] = alloca [256 x i32], i64 1, align 4
|
|
|
|
integer :: i, j
|
|
integer :: a(256)
|
|
|
|
a = 23
|
|
! LLVM: call void @llvm.prefetch.p0(ptr %[[VAR_A]], i32 0, i32 3, i32 1)
|
|
!dir$ prefetch a
|
|
i = sum(a)
|
|
|
|
! LLVM: %[[LOAD_I:.*]] = load i32, ptr %[[VAR_I]], align 4
|
|
! LLVM: %{{.*}} = add nsw i32 %[[LOAD_I]], 64
|
|
! LLVM: %[[GEP_A:.*]] = getelementptr i32, ptr %[[VAR_A]], i64 {{.*}}
|
|
|
|
! LLVM: call void @llvm.prefetch.p0(ptr %[[GEP_A]], i32 0, i32 3, i32 1)
|
|
! LLVM: call void @llvm.prefetch.p0(ptr %[[VAR_J]], i32 0, i32 3, i32 1)
|
|
do i = 1, (256 - 64)
|
|
!dir$ prefetch a(i+64), j
|
|
a(i) = a(i-32) + a(i+32) + j
|
|
end do
|
|
end subroutine test_prefetch_01
|