This is causing some testing issue. Reverting for now.
This commit is contained in:
parent
1aaa33883b
commit
af9ca0e5be
@ -403,16 +403,6 @@ static constexpr IntrinsicHandler cudaHandlers[]{
|
||||
&CI::genCUDASetDefaultStream),
|
||||
{{{"stream", asValue}}},
|
||||
/*isElemental=*/false},
|
||||
{"cudastreamsynchronize",
|
||||
static_cast<CUDAIntrinsicLibrary::ExtendedGenerator>(
|
||||
&CI::genCUDAStreamSynchronize),
|
||||
{{{"stream", asValue}}},
|
||||
/*isElemental=*/false},
|
||||
{"cudastreamsynchronizenull",
|
||||
static_cast<CUDAIntrinsicLibrary::ElementalGenerator>(
|
||||
&CI::genCUDAStreamSynchronizeNull),
|
||||
{},
|
||||
/*isElemental=*/false},
|
||||
{"fence_proxy_async",
|
||||
static_cast<CUDAIntrinsicLibrary::SubroutineGenerator>(
|
||||
&CI::genFenceProxyAsync),
|
||||
|
||||
@ -36,14 +36,4 @@ interface cudaforsetdefaultstream
|
||||
end function
|
||||
end interface
|
||||
|
||||
interface cudaStreamSynchronize
|
||||
integer function cudastreamsynchronize(stream)
|
||||
import cuda_stream_kind
|
||||
!DIR$ IGNORE_TKR (K) stream
|
||||
integer(kind=cuda_stream_kind), value :: stream
|
||||
end function
|
||||
integer function cudastreamsynchronizenull()
|
||||
end function
|
||||
end interface
|
||||
|
||||
end module cuda_runtime_api
|
||||
|
||||
@ -39,14 +39,3 @@ end subroutine
|
||||
! CHECK: %{{.*}} = fir.call @_FortranACUFGetDefaultStream() fastmath<contract> : () -> i64
|
||||
! CHECK: %{{.*}} = fir.call @_FortranACUFGetDefaultStream() fastmath<contract> : () -> i64
|
||||
|
||||
subroutine stream_synchronize
|
||||
use cuda_runtime_api
|
||||
integer(kind=cuda_stream_kind) :: strm
|
||||
integer :: istat
|
||||
istat = cudastreamsynchronize(strm)
|
||||
istat = cudastreamsynchronize()
|
||||
end subroutine
|
||||
|
||||
! CHECK-LABEL: func.func @_QPstream_synchronize()
|
||||
! CHECK: %{{.*}} = fir.call @_FortranACUFStreamSynchronize(%{{.*}}) fastmath<contract> : (i64) -> i32
|
||||
! CHECK: %{{.*}} = fir.call @_FortranACUFStreamSynchronizeNull() fastmath<contract> : () -> i32
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user