Skip to content

Fix GPU_HOST_DATA and GPU_DECLARE argument handling #1999

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

Closed
sbryngelson wants to merge 3 commits into from
+2 −5
Closed

Fix GPU_HOST_DATA and GPU_DECLARE argument handling #1999

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
cff5fac
Fix GPU_HOST_DATA and GPU_DECLARE argument handling
sbryngelson Oct 10, 2026
5ef9a7f
Merge branch 'master' into fix/gpu-macro-args
sbryngelson Oct 12, 2026
9573d9e
Merge branch 'master' into fix/gpu-macro-args
sbryngelson Oct 13, 2026
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
7 changes: 2 additions & 5 deletions src/common/include/parallel_macros.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -114,7 +114,7 @@
#:def GPU_DECLARE(copy=None, copyin=None, copyinReadOnly=None, copyout=None, create=None, present=None, deviceptr=None, &
& link=None, extraAccArgs=None, extraOmpArgs=None)
#:set acc_code = ACC_DECLARE(copy=copy, copyin=copyin, copyinReadOnly=copyinReadOnly, copyout=copyout, create=create, &
& present=present, deviceptr=deviceptr, link=link, extraAccArgs=None)
& present=present, deviceptr=deviceptr, link=link, extraAccArgs=extraAccArgs)
#:assert copyout is None
#:assert present is None
#:assert deviceptr is None
Expand Down Expand Up @@ -165,10 +165,7 @@
! Host code with device pointers (for MPI with GPU buffers)
#:def GPU_HOST_DATA(code, use_device_addr=None, use_device_ptr=None, extraAccArgs=None, extraOmpArgs=None)
#:if use_device_addr is not None and use_device_ptr is not None
#:set use_device_addr_end_index = len(use_device_addr) - 1
#:set use_device = use_device_addr + use_device_ptr
$:use_device[use_device_addr_end_index] = ','
$:use_device[use_device_addr_end_index + 1] = ' '
#:set use_device = use_device_addr.strip()[:-1] + ', ' + use_device_ptr.strip()[1:]
#:elif use_device_addr is not None or use_device_ptr is not None
#:if use_device_addr is not None
#:set use_device = use_device_addr
Expand Down
Loading