source: CIVL/examples/omp/sharedVar1.cvl@ 397ae5f

main test-branch
Last change on this file since 397ae5f was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 232 bytes
RevLine 
[170ff7f]1#include <omp.h>
2#include <stdio.h>
3
4static omp_lock_t lock;
5
6void f() {
7 omp_set_lock(&lock);
8 omp_unset_lock(&lock);
9}
10
11int main(){
12 omp_init_lock(&lock);
13
14 #pragma omp parallel
15 {
16 f();
17 }
18 omp_destroy_lock(&lock);
19}
Note: See TracBrowser for help on using the repository browser.