We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8845e12 commit fd7e40cCopy full SHA for fd7e40c
src/tests/integration/gpu/co_dot.f90
@@ -125,9 +125,9 @@ subroutine initialize_all_variables()
125
use opencoarrays, only : accelerate
126
integer(c_int) :: i
127
! These allocation arguments must be coarrays to support the scatter operation below
128
- allocate(a_unacc(n_local),b_unacc(n_local))
129
- ! These allocation arguments will be defined locally and therefore need not be coarrays
130
allocate(a_acc(n_local)[*],b_acc(n_local)[*])
+ ! These allocation arguments will be defined locally and therefore need not be coarrays
+ allocate(a_unacc(n_local),b_unacc(n_local))
131
132
! Register the desired variables for acceleration
133
call accelerate(a_acc)
0 commit comments