Mercurial > mxe-octave
view src/pthreads-test.c @ 6348:6d085baf3a99 release
Update URL for release of Octave 7.2.0
* src/release-octave.mk: Update URL from alpha to main GNU FTP server.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sat, 30 Jul 2022 15:42:25 +0200 |
parents | 99516e73b368 |
children |
line wrap: on
line source
/* * This file is part of MXE. * See index.html for further information. */ #include <stdio.h> #include <pthread.h> #define N 4 void *thread_fn(void *p) { const int *arg = p; fprintf(stderr, "Hello from thread %d, nthreads %d\n", *arg, N); return NULL; } int main(int argc, char *argv[]) { pthread_t threads[N]; int args[N]; int i; (void)argc; (void)argv; for (i = 0; i < N; i++) { args[i] = i; if (pthread_create(threads + i, NULL, thread_fn, args + i) != 0) { return 1; } } for (i = 0; i < N; i++) { if (pthread_join(threads[i], NULL) != 0) { return 2; } } return 0; }