Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
dkrz-sw
yaxt
Commits
c49fc7da
Commit
c49fc7da
authored
Feb 12, 2021
by
Thomas Jahns
🤸
Browse files
Add work-around for older PGI compilers.
parent
26a00a9f
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/test_xmap_intersection_parallel.c
View file @
c49fc7da
...
...
@@ -560,12 +560,22 @@ test_strided_block_pos_alltoall(MPI_Comm comm, int nblk, int blksz)
for
(
int
i
=
0
;
i
<
blksz
;
++
i
)
transfer_pos
[
rank
][
j
][
i
]
=
i
+
j
*
blksz
*
comm_size
;
#if defined __PGI && __PGIC__ <= 15
ref_src_msg
[
rank
].
pos
=
src_com
[
rank
].
transfer_pos
=
(
int
*
)
transfer_pos
+
rank
*
nblk
*
blksz
;
#else
ref_src_msg
[
rank
].
pos
=
src_com
[
rank
].
transfer_pos
=
(
int
*
)(
transfer_pos
+
rank
);
#endif
ref_src_msg
[
rank
].
num_pos
=
src_com
[
rank
].
num_transfer_pos
=
nblk
*
blksz
;
ref_src_msg
[
rank
].
rank
=
src_com
[
rank
].
rank
=
rank
;
#if defined __PGI && __PGIC__ <= 15
ref_dst_msg
[
rank
].
pos
=
dst_com
[
rank
].
transfer_pos
=
(
int
*
)
transfer_pos
+
rank
*
nblk
*
blksz
;
#else
ref_dst_msg
[
rank
].
pos
=
dst_com
[
rank
].
transfer_pos
=
(
int
*
)(
transfer_pos
+
rank
);
#endif
ref_dst_msg
[
rank
].
num_pos
=
dst_com
[
rank
].
num_transfer_pos
=
nblk
*
blksz
;
ref_dst_msg
[
rank
].
rank
=
dst_com
[
rank
].
rank
=
rank
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment