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

1.23 2.0 acw/focus-triggers main test-branch
Last change on this file since 53480b5 was e3f356c, checked in by Wenhao Wu <wuwenhao@…>, 5 years ago

merge from branch omptrans for tacas2022

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5471 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.