Skip to content

Commit fd7e40c

Browse files
author
Damian Rouson
committed
Corrected wrongly ordered comments in co_dot.f90.
1 parent 8845e12 commit fd7e40c

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/tests/integration/gpu/co_dot.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -125,9 +125,9 @@ subroutine initialize_all_variables()
125125
use opencoarrays, only : accelerate
126126
integer(c_int) :: i
127127
! 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
130128
allocate(a_acc(n_local)[*],b_acc(n_local)[*])
129+
! These allocation arguments will be defined locally and therefore need not be coarrays
130+
allocate(a_unacc(n_local),b_unacc(n_local))
131131

132132
! Register the desired variables for acceleration
133133
call accelerate(a_acc)

0 commit comments

Comments
 (0)