Skip to content

Add interfaces to streamWaitEvent (cuda&hip) #299

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
bd4 merged 1 commit into from
Jan 30, 2026
Merged

Add interfaces to streamWaitEvent (cuda&hip) #299

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 10 additions & 0 deletions src/fortran/gpu_api.cxx
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -140,6 +140,11 @@ extern "C" int gpuEventSynchronize(cudaEvent_t event)
return static_cast<int>(cudaEventSynchronize(event));
}

extern "C" int gpuStreamWaitEvent(cudaStream_t stream, cudaEvent_t event)
{
return static_cast<int>(cudaStreamWaitEvent(stream, event));
}

extern "C" int gpuMemcpyAsync(void* dst, const void* src, size_t bytes,
cudaMemcpyKind kind, cudaStream_t stream)
{
Expand Down Expand Up @@ -182,6 +187,11 @@ extern "C" int gpuEventRecord(hipEvent_t event, hipStream_t stream)
return static_cast<int>(hipEventRecord(event, stream));
}

extern "C" int gpuStreamWaitEvent(hipStream_t stream, hipEvent_t event)
{
return static_cast<int>(hipStreamWaitEvent(stream, event));
}

extern "C" int gpuEventSynchronize(hipEvent_t event)
{
return static_cast<int>(hipEventSynchronize(event));
Expand Down
6 changes: 6 additions & 0 deletions src/fortran/gpu_api_interface.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -149,6 +149,12 @@ function gpuEventRecord(event, streamid) bind(c,name="gpuEventRecord")
integer(C_INT) :: gpuEventRecord
end function gpuEventRecord

function gpuStreamWaitEvent(streamid, event) bind(c,name="gpuStreamWaitEvent")
import
type(C_PTR),value :: event,streamid
integer(C_INT) :: StreamWaitEvent
end function gpuStreamWaitEvent

function gpuEventSynchronize(event) bind(c,name="gpuEventSynchronize")
import
type(C_PTR),value :: event
Expand Down