@@ -238,6 +238,7 @@ char *msgbody;
238
238
pthread_mutex_t lock_am ;
239
239
int done_am = 0 ;
240
240
241
+ #ifdef GCC_GE_15
241
242
/* Communication thread variables, constants and structures. */
242
243
static const int CAF_CT_TAG = 13 ;
243
244
pthread_t commthread ;
@@ -325,6 +326,7 @@ struct transfer_msg_data_t
325
326
size_t dst_add_data_size ;
326
327
char data [];
327
328
};
329
+ #endif
328
330
329
331
/* Define the descriptor of max rank.
330
332
*
@@ -604,6 +606,7 @@ compute_arr_data_size(const gfc_descriptor_t *desc)
604
606
return compute_arr_data_size_sz (desc , desc -> span );
605
607
}
606
608
609
+ #ifdef GCC_GE_15
607
610
size_t
608
611
handle_getting (ct_msg_t * msg , int cb_image , void * baseptr , void * dst_ptr ,
609
612
void * * buffer , int32_t * free_buffer , void * dbase )
@@ -1069,6 +1072,7 @@ communication_thread(void *)
1069
1072
dprint ("ct: Ended.\n" );
1070
1073
return NULL ;
1071
1074
}
1075
+ #endif
1072
1076
1073
1077
/* Forward declaration of the feature unsupported message for failed images
1074
1078
* functions. */
@@ -1614,10 +1618,12 @@ PREFIX(init)(int *argc, char ***argv)
1614
1618
}
1615
1619
#endif
1616
1620
1621
+ #ifdef GCC_GE_15
1617
1622
ierr = MPI_Comm_dup (CAF_COMM_WORLD , & ct_COMM );
1618
1623
chk_err (ierr );
1619
1624
ierr = pthread_create (& commthread , NULL , & communication_thread , NULL );
1620
1625
chk_err (ierr );
1626
+ #endif
1621
1627
}
1622
1628
}
1623
1629
@@ -1757,6 +1763,7 @@ finalize_internal(int status_code)
1757
1763
chk_err (ierr );
1758
1764
#endif // MPI_VERSION
1759
1765
1766
+ #ifdef GCC_GE_15
1760
1767
dprint ("Sending termination signal to communication thread.\n" );
1761
1768
commthread_running = false;
1762
1769
ierr = MPI_Send (NULL , 0 , MPI_BYTE , mpi_this_image , CAF_CT_TAG , ct_COMM );
@@ -1767,6 +1774,7 @@ finalize_internal(int status_code)
1767
1774
dprint ("Freeing ct_COMM.\n" );
1768
1775
MPI_Comm_free (& ct_COMM );
1769
1776
dprint ("Freeed ct_COMM.\n" );
1777
+ #endif
1770
1778
1771
1779
/* Free the global dynamic window. */
1772
1780
ierr = MPI_Win_free (& global_dynamic_win );
0 commit comments