@@ -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 )
@@ -1073,6 +1076,7 @@ communication_thread(void *)
1073
1076
dprint ("ct: Ended.\n" );
1074
1077
return NULL ;
1075
1078
}
1079
+ #endif
1076
1080
1077
1081
/* Forward declaration of the feature unsupported message for failed images
1078
1082
* functions. */
@@ -1618,10 +1622,12 @@ PREFIX(init)(int *argc, char ***argv)
1618
1622
}
1619
1623
#endif
1620
1624
1625
+ #ifdef GCC_GE_15
1621
1626
ierr = MPI_Comm_dup (CAF_COMM_WORLD , & ct_COMM );
1622
1627
chk_err (ierr );
1623
1628
ierr = pthread_create (& commthread , NULL , & communication_thread , NULL );
1624
1629
chk_err (ierr );
1630
+ #endif
1625
1631
}
1626
1632
}
1627
1633
@@ -1761,6 +1767,7 @@ finalize_internal(int status_code)
1761
1767
chk_err (ierr );
1762
1768
#endif // MPI_VERSION
1763
1769
1770
+ #ifdef GCC_GE_15
1764
1771
dprint ("Sending termination signal to communication thread.\n" );
1765
1772
commthread_running = false;
1766
1773
ierr = MPI_Send (NULL , 0 , MPI_BYTE , mpi_this_image , CAF_CT_TAG , ct_COMM );
@@ -1771,6 +1778,7 @@ finalize_internal(int status_code)
1771
1778
dprint ("Freeing ct_COMM.\n" );
1772
1779
MPI_Comm_free (& ct_COMM );
1773
1780
dprint ("Freeed ct_COMM.\n" );
1781
+ #endif
1774
1782
1775
1783
/* Free the global dynamic window. */
1776
1784
ierr = MPI_Win_free (& global_dynamic_win );
0 commit comments