Commit fb1654d8 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Expand work-around for new PGI compilers.

parent c49fc7da
......@@ -258,14 +258,14 @@ CONTAINS
TYPE(xt_com_pos), INTENT(in) :: com_pos(:)
INTEGER :: i
INTEGER :: total_num_pos
#if defined __PGI && __PGIC__ > 15 && __PGIC__ < 20
#if defined __PGI && __PGIC__ > 15 && __PGIC__ <= 20
INTEGER, POINTER :: pos(:)
#endif
total_num_pos = 0
#ifdef HAVE_FC_IS_CONTIGUOUS
IF (KIND(com_pos(i)%transfer_pos) == c_int) THEN
DO i = 1, num_msg
#if defined __PGI && __PGIC__ > 15 && __PGIC__ < 20
#if defined __PGI && __PGIC__ > 15 && __PGIC__ <= 20
pos => com_pos(i)%transfer_pos
IF (.NOT. IS_CONTIGUOUS(pos)) THEN
#else
......@@ -295,7 +295,7 @@ CONTAINS
INTEGER(c_int), TARGET, INTENT(inout) :: pos_buffer(size_pos_buf)
INTEGER, INTENT(inout) :: pos_buffer_offset
INTEGER :: i, j, num_pos
#if defined __PGI && __PGIC__ > 15 && __PGIC__ < 20
#if defined __PGI && __PGIC__ > 15 && __PGIC__ <= 20
INTEGER, POINTER :: pos(:)
#endif
ALLOCATE(com_pos_c(num_msg))
......@@ -303,7 +303,7 @@ CONTAINS
DO i = 1, num_msg
num_pos = SIZE(com_pos(i)%transfer_pos)
#ifdef HAVE_FC_IS_CONTIGUOUS
# if defined __PGI && __PGIC__ > 15 && __PGIC__ < 20
# if defined __PGI && __PGIC__ > 15 && __PGIC__ <= 20
pos => com_pos(i)%transfer_pos
IF (KIND(1) == c_int .AND. IS_CONTIGUOUS(pos)) THEN
# else
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment