Transfer files from RAD repository

[ROCm/rocshmem commit: ea8f264a11]

projects/rocshmem/tests/sos_tests/shmem_test.cpp

@@ -0,0 +1,77 @@
+/*
+ *  Copyright (c) 2017 Intel Corporation. All rights reserved.
+ *  This software is available to you under the BSD license below:
+ *
+ *      Redistribution and use in source and binary forms, with or
+ *      without modification, are permitted provided that the following
+ *      conditions are met:
+ *
+ *      - Redistributions of source code must retain the above
+ *        copyright notice, this list of conditions and the following
+ *        disclaimer.
+ *
+ *      - Redistributions in binary form must reproduce the above
+ *        copyright notice, this list of conditions and the following
+ *        disclaimer in the documentation and/or other materials
+ *        provided with the distribution.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
+ * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+ * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ *
+ */
+
+/* Each PE sends a message to every PE.  PEs wait for all messages to
+ * arrive using roc_shmem_test to poll the array. */
+
+#include <stdio.h>
+
+#include <roc_shmem/roc_shmem.hpp>
+
+using namespace rocshmem;
+
+/* Wait for any entry in the given ivar array to match the wait criteria and
+ * return the index of the entry that satisfied the test. */
+static int wait_any(long *ivar, int count, roc_shmem_cmps cmp, long value) {
+  int idx = 0;
+  while (!roc_shmem_long_test(&ivar[idx], cmp, value)) idx = (idx + 1) % count;
+  return idx;
+}
+
+int main(void) {
+  roc_shmem_init();
+  const int mype = roc_shmem_my_pe();
+  const int npes = roc_shmem_n_pes();
+
+  long *wait_vars = (long *)roc_shmem_malloc(npes * sizeof(long));
+  for (int i = 0; i < npes; i++) {
+    wait_vars[i] = 0;
+  }
+
+  /* Put mype+1 to every PE */
+  for (int i = 0; i < npes; i++)
+    roc_shmem_long_p(&wait_vars[mype], mype + 1, i);
+
+  int nrecv = 0, errors = 0;
+
+  /* Wait for all messages to arrive */
+  while (nrecv < npes) {
+    int who = wait_any(wait_vars, npes, ROC_SHMEM_CMP_NE, 0);
+    if (wait_vars[who] != who + 1) {
+      printf("%d: wait_vars[%d] = %ld, expected %d\n", mype, who,
+             wait_vars[who], who + 1);
+      errors++;
+    }
+    wait_vars[who] = 0;
+    nrecv++;
+  }
+
+  roc_shmem_free(wait_vars);
+  roc_shmem_finalize();
+  return errors;
+}