1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
/*****************************************************************************\
* test1.95.prog.upc - Basic UPC (Unified Parallel C) test via srun.
*****************************************************************************
* Copyright (C) 2012 SchedMD LLC
* Written by Morris Jette <jette@schedmd.com>
*
* This file is part of Slurm, a resource management program.
* For details, see <https://slurm.schedmd.com/>.
* Please also read the included file: DISCLAIMER.
*
* Slurm is free software; you can redistribute it and/or modify it under
* the terms of the GNU General Public License as published by the Free
* Software Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* Slurm is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
* details.
*
* You should have received a copy of the GNU General Public License along
* with Slurm; if not, write to the Free Software Foundation, Inc.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
\*****************************************************************************/
#include <stdio.h>
#include <unistd.h>
#include <upc.h>
shared int inx[THREADS];
int main(int argc, char * argv[])
{
printf("Hello from %d of %d\n", MYTHREAD, THREADS);
inx[MYTHREAD] = MYTHREAD;
upc_barrier;
if (MYTHREAD == 0) {
int i, total = 0;
for (i = 0; i < THREADS; i++)
total += inx[i];
/* Make sure "Total" message is last for Expect parsing*/
sleep(1);
printf("Total is %d\n", total);
}
return 0;
}
|
