source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks-fortran/DRB027-taskdependmissing-orig-yes.f95

main
Last change on this file 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 100755
File size: 897 bytes
Line 
1!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
2!!! Copyright (c) 2017-20, Lawrence Livermore National Security, LLC
3!!! and DataRaceBench project contributors. See the DataRaceBench/COPYRIGHT file for details.
4!!!
5!!! SPDX-License-Identifier: (BSD-3-Clause)
6!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
7
8!Two tasks without depend clause to protect data writes.
9!i is shared for two tasks based on implicit data-sharing attribute rules.
10!Data race pair: i@22 vs. i@25
11
12program DRB027_taskdependmissing_orig_yes
13 use omp_lib
14 implicit none
15
16 integer :: i
17 i=0
18
19 !$omp parallel
20 !$omp single
21 !$omp task
22 i = 1
23 !$omp end task
24 !$omp task
25 i = 2
26 !$omp end task
27 !$omp end single
28 !$omp end parallel
29
30 print 100, i
31 100 format ("i=",i3)
32
33end program
Note: See TracBrowser for help on using the repository browser.