source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks-fortran/DRB089-dynamic-storage2-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: 968 bytes
RevLine 
[e3f356c]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!For the case of a variable which is referenced within a construct:
9!objects with dynamic storage duration should be shared.
10!Putting it within a threadprivate directive may cause seg fault
11!since threadprivate copies are not allocated.
12!
13!Dependence pair: *counter@25:5 vs. *counter@25:15
14
15program DRB088_dynamic_storage_orig_yes
16 use omp_lib
17 implicit none
18 integer, pointer :: counter
19
20 allocate(counter)
21
22 counter = 0
23
24 !$omp parallel
25 counter = counter+1
26 !$omp end parallel
27
28 print*,counter
29
30 deallocate(counter)
31
32end program
Note: See TracBrowser for help on using the repository browser.