text: /*
   * Copyright (C) by Argonne National Laboratory
   *     See COPYRIGHT in top-level directory
   */
  
  #include <stdio.h>
  #include "mpi.h"
  #include "mpiimpl.h"
  
  int main(int argc, char *argv[])
  {
      MPIR_Group group, *group_ptr = &group;
      int i;
  
      MPI_Init(&argc, &argv);
  
      /* Setup a sample group */
      group.handle = 1;
      group.ref_count = 1;
      group.size = 4;
      group.rank = 0;
      group.idx_of_first_lpid = -1;
      group.lrank_to_lpid = (MPII_Group_pmap_t *)
          MPL_malloc(group.size * sizeof(MPII_Group_pmap_t), MPL_MEM_OTHER);
      for (i = 0; i < group.size; i++) {
          group.lrank_to_lpid[i].lrank = i;
          group.lrank_to_lpid[i].lpid = group.size - i - 1;
          group.lrank_to_lpid[i].next_lpid = -1;
          group.lrank_to_lpid[i].flag = 0;
      }
  
      /* Set up the group lpid list */
      MPII_Group_setup_lpid_list(group_ptr);
  
      /* Print the group structure */
      printf("Index of first lpid = %d\n", group.idx_of_first_lpid);
      for (i = 0; i < group.size; i++) {
          printf("lrank_to_lpid[%d].next_lpid = %d, .lpid = %d\n",
                 i, group.lrank_to_lpid[i].next_lpid, group.lrank_to_lpid[i].lpid);
      }
  
      MPI_Finalize();
      return 0;
  }
  