1  void
       2  _gfortran_caf_event_post (unsigned int **pp, unsigned int index,
       3       int image_index __attribute__ ((unused)),
       4       int *stat, char *errmsg __attribute__ ((unused)),
       5       unsigned int errmsg_len __attribute__ ((unused)))
       6  {
       7    unsigned int value = 1;
       8    unsigned int *event = *pp + index;
       9    __atomic_fetch_add (event, value, 0);
      10  
      11    if(stat)
      12      *stat = 0;
      13  }