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

1.23 v1.23.0
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: 824 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!This loop has loop-carried output-dependence due to x=... at line 21.
9!The problem can be solved by using lastprivate(x).
10!Data race pair: x@21:9 vs. x@21:9
11
12program DRB009_lastprivatemissing_orig_yes
13 use omp_lib
14 implicit none
15
16 integer :: i, x, len
17 len = 10000
18
19 !$omp parallel do private(i)
20 do i = 0, len
21 x = i
22 end do
23 !$omp end parallel do
24
25 write(*,*) 'x =', x
26end program
Note: See TracBrowser for help on using the repository browser.