This is an archive of the discontinued LLVM Phabricator instance.

Differential D145684

[flang] Fix host associated vars in OpenMP/OpenACC region
Needs ReviewPublic

Authored by peixin on Mar 9 2023, 4:16 AM.

Details

Reviewers
kiranchandramohan
clementval
klausler
jeanPerier
sscalpone
jdoerfert
Summary

When making the symbols of host associated vars and the host is used
associated, the scope is not checked if it is the subprogram or the
OpenMP/OpenACC construct. As a result, the symbols are not added into
the subprogram scope, and they are not instantiated in lowering. Add
OMPACCConstruct scope kind to check this case.

Fix #60739.

Diff Detail

Event Timeline

peixin created this revision.Mar 9 2023, 4:16 AM
Herald added a reviewer: sscalpone. · View Herald TranscriptMar 9 2023, 4:16 AM
Herald added a project: Restricted Project. · View Herald Transcript
Herald added subscribers: sunshaoce, Anastasia, jdoerfert and 2 others. · View Herald Transcript
peixin requested review of this revision.Mar 9 2023, 4:16 AM
Herald added a reviewer: jdoerfert. · View Herald TranscriptMar 9 2023, 4:16 AM
Herald added a subscriber: sstefan1. · View Herald Transcript
Harbormaster completed remote builds in B218362: Diff 503725.Mar 9 2023, 4:17 AM
kiranchandramohan added a comment.Mar 9 2023, 3:02 PM

@peixin Thanks for working on this. Could you check why the patch application is failing?

peixin updated this revision to Diff 503986.Mar 9 2023, 5:08 PM

Thanks @kiranchandramohan for the notice. Rebase to fix patch application fail.

Harbormaster completed remote builds in B218562: Diff 503986.Mar 9 2023, 6:28 PM
kiranchandramohan added a comment.Mar 27 2023, 4:49 AM

Thanks @peixin for the patch.

I was wondering where is the right place to fix this issue. I see that this works correctly when a block construct is present with handling in Lowering. A modified version of one of your tests would be,

module tpmod
  real :: val = 2.0
end module

subroutine tptest
  use tpmod
  call tps()
contains
  subroutine tps()
    !$omp parallel
    block
      val = 1.0
    end block
    !$omp end parallel
  end subroutine
end subroutine

Would calling instantiateVar for the scope variables as is done for block (https://github.com/llvm/llvm-project/blob/2d68a42f084a460007b368eab191cf0ff1b976d7/flang/lib/Lower/Bridge.cpp#L2282) help fix the issue? Or did you try this and face any issues?

Herald added a subscriber: jplehr. · View Herald TranscriptMar 27 2023, 4:49 AM
peixin added a comment.Mar 27 2023, 5:52 PM
In D145684#4223733, @kiranchandramohan wrote:

Thanks @peixin for the patch.

I was wondering where is the right place to fix this issue. I see that this works correctly when a block construct is present with handling in Lowering. A modified version of one of your tests would be,

module tpmod
  real :: val = 2.0
end module

subroutine tptest
  use tpmod
  call tps()
contains
  subroutine tps()
    !$omp parallel
    block
      val = 1.0
    end block
    !$omp end parallel
  end subroutine
end subroutine

Would calling instantiateVar for the scope variables as is done for block (https://github.com/llvm/llvm-project/blob/2d68a42f084a460007b368eab191cf0ff1b976d7/flang/lib/Lower/Bridge.cpp#L2282) help fix the issue? Or did you try this and face any issues?

The block construct can contain declarations, so it is reasonable to maintain the variables instantiation in the BLOCK region. However, for OpenMP constructs, one problem is that we assume the variables scope is one level up for privatized clauses and threadprivate variables. The other problem, I think, is to make the design of the variables scope not clean.

peixin added a comment.Jul 7 2023, 8:51 AM

@kiranchandramohan Hi Kiran, could you please help commandeer this patch? I cannot continue working on it due to work changes.

Revision Contents

PathSize
flang/
include/
flang/
Semantics/
2 lines
lib/
Semantics/
2 lines
17 lines
test/
Lower/
OpenACC/
30 lines
OpenMP/
58 lines
Semantics/
OpenACC/
8 lines
OpenMP/
2 lines
8 lines
4 lines
4 lines
2 lines
2 lines
6 lines
2 lines
8 lines
50 lines
40 lines
22 lines
20 lines
24 lines
20 lines
4 lines
6 lines
6 lines
4 lines
2 lines
76 lines

Diff 503986

flang/include/flang/Semantics/scope.h

Show First 20 Lines • Show All 55 Lines • ▼ Show 20 Lines
using EquivalenceSet = std::vector<EquivalenceObject>; using EquivalenceSet = std::vector<EquivalenceObject>;
class Scope { class Scope {
using mapType = std::map<SourceName, MutableSymbolRef>; using mapType = std::map<SourceName, MutableSymbolRef>;
public: public:
ENUM_CLASS(Kind, Global, IntrinsicModules, Module, MainProgram, Subprogram, ENUM_CLASS(Kind, Global, IntrinsicModules, Module, MainProgram, Subprogram,
BlockData, DerivedType, BlockConstruct, Forall, OtherConstruct, BlockData, DerivedType, BlockConstruct, Forall, OtherConstruct,
ImpliedDos) ImpliedDos, OMPACCConstruct)
using ImportKind = common::ImportKind; using ImportKind = common::ImportKind;
// Create the Global scope -- the root of the scope tree // Create the Global scope -- the root of the scope tree
explicit Scope(SemanticsContext &context) explicit Scope(SemanticsContext &context)
: Scope{*this, Kind::Global, nullptr, context} {} : Scope{*this, Kind::Global, nullptr, context} {}
Scope(Scope &parent, Kind kind, Symbol *symbol, SemanticsContext &context) Scope(Scope &parent, Kind kind, Symbol *symbol, SemanticsContext &context)
: parent_{parent}, kind_{kind}, symbol_{symbol}, context_{context} { : parent_{parent}, kind_{kind}, symbol_{symbol}, context_{context} {
if (symbol) { if (symbol) {
▲ Show 20 Lines • Show All 252 Lines • Show Last 20 Lines

flang/lib/Semantics/resolve-directives.cpp

Show First 20 Lines • Show All 1,294 Lines • ▼ Show 20 Lines if (!dirContext_.empty() && GetContext().withinConstruct) {
ResolveSeqLoopIndexInParallelOrTaskConstruct(*iv); ResolveSeqLoopIndexInParallelOrTaskConstruct(*iv);
} else { } else {
// TODO: conflict checks with explicitly determined DSA // TODO: conflict checks with explicitly determined DSA
} }
ordCollapseLevel--; ordCollapseLevel--;
if (ordCollapseLevel) { if (ordCollapseLevel) {
if (const auto *details{iv->symbol->detailsIf<HostAssocDetails>()}) { if (const auto *details{iv->symbol->detailsIf<HostAssocDetails>()}) {
const Symbol *tpSymbol = &details->symbol(); const Symbol *tpSymbol = &details->symbol();
if (tpSymbol->test(Symbol::Flag::OmpThreadprivate)) { if (tpSymbol->GetUltimate().test(Symbol::Flag::OmpThreadprivate)) {
context_.Say(iv->source, context_.Say(iv->source,
"Loop iteration variable %s is not allowed in THREADPRIVATE."_err_en_US, "Loop iteration variable %s is not allowed in THREADPRIVATE."_err_en_US,
iv->ToString()); iv->ToString());
} }
} }
} }
} }
} }
▲ Show 20 Lines • Show All 617 Lines • Show Last 20 Lines

flang/lib/Semantics/resolve-names.cpp

  • This file is larger than 256 KB, so syntax highlighting is disabled by default.
Show First 20 Lines • Show All 1,330 Lines • ▼ Show 20 Lines
void AccVisitor::AddAccSourceRange(const parser::CharBlock &source) { void AccVisitor::AddAccSourceRange(const parser::CharBlock &source) {
messageHandler().set_currStmtSource(source); messageHandler().set_currStmtSource(source);
currScope().AddSourceRange(source); currScope().AddSourceRange(source);
} }
bool AccVisitor::Pre(const parser::OpenACCBlockConstruct &x) { bool AccVisitor::Pre(const parser::OpenACCBlockConstruct &x) {
if (NeedsScope(x)) { if (NeedsScope(x)) {
PushScope(Scope::Kind::OtherConstruct, nullptr); PushScope(Scope::Kind::OMPACCConstruct, nullptr);
} }
return true; return true;
} }
void AccVisitor::Post(const parser::OpenACCBlockConstruct &x) { void AccVisitor::Post(const parser::OpenACCBlockConstruct &x) {
if (NeedsScope(x)) { if (NeedsScope(x)) {
PopScope(); PopScope();
} }
Show All 19 Lines bool Pre(const parser::OmpEndBlockDirective &x) {
AddOmpSourceRange(x.source); AddOmpSourceRange(x.source);
return true; return true;
} }
void Post(const parser::OmpEndBlockDirective &) { void Post(const parser::OmpEndBlockDirective &) {
messageHandler().set_currStmtSource(std::nullopt); messageHandler().set_currStmtSource(std::nullopt);
} }
bool Pre(const parser::OpenMPLoopConstruct &) { bool Pre(const parser::OpenMPLoopConstruct &) {
PushScope(Scope::Kind::OtherConstruct, nullptr); PushScope(Scope::Kind::OMPACCConstruct, nullptr);
return true; return true;
} }
void Post(const parser::OpenMPLoopConstruct &) { PopScope(); } void Post(const parser::OpenMPLoopConstruct &) { PopScope(); }
bool Pre(const parser::OmpBeginLoopDirective &x) { bool Pre(const parser::OmpBeginLoopDirective &x) {
AddOmpSourceRange(x.source); AddOmpSourceRange(x.source);
return true; return true;
} }
void Post(const parser::OmpBeginLoopDirective &) { void Post(const parser::OmpBeginLoopDirective &) {
messageHandler().set_currStmtSource(std::nullopt); messageHandler().set_currStmtSource(std::nullopt);
} }
bool Pre(const parser::OmpEndLoopDirective &x) { bool Pre(const parser::OmpEndLoopDirective &x) {
AddOmpSourceRange(x.source); AddOmpSourceRange(x.source);
return true; return true;
} }
void Post(const parser::OmpEndLoopDirective &) { void Post(const parser::OmpEndLoopDirective &) {
messageHandler().set_currStmtSource(std::nullopt); messageHandler().set_currStmtSource(std::nullopt);
} }
bool Pre(const parser::OpenMPSectionsConstruct &) { bool Pre(const parser::OpenMPSectionsConstruct &) {
PushScope(Scope::Kind::OtherConstruct, nullptr); PushScope(Scope::Kind::OMPACCConstruct, nullptr);
return true; return true;
} }
void Post(const parser::OpenMPSectionsConstruct &) { PopScope(); } void Post(const parser::OpenMPSectionsConstruct &) { PopScope(); }
bool Pre(const parser::OmpBeginSectionsDirective &x) { bool Pre(const parser::OmpBeginSectionsDirective &x) {
AddOmpSourceRange(x.source); AddOmpSourceRange(x.source);
return true; return true;
} }
void Post(const parser::OmpBeginSectionsDirective &) { void Post(const parser::OmpBeginSectionsDirective &) {
Show All 24 Lines
void OmpVisitor::AddOmpSourceRange(const parser::CharBlock &source) { void OmpVisitor::AddOmpSourceRange(const parser::CharBlock &source) {
messageHandler().set_currStmtSource(source); messageHandler().set_currStmtSource(source);
currScope().AddSourceRange(source); currScope().AddSourceRange(source);
} }
bool OmpVisitor::Pre(const parser::OpenMPBlockConstruct &x) { bool OmpVisitor::Pre(const parser::OpenMPBlockConstruct &x) {
if (NeedsScope(x)) { if (NeedsScope(x)) {
PushScope(Scope::Kind::OtherConstruct, nullptr); PushScope(Scope::Kind::OMPACCConstruct, nullptr);
} }
return true; return true;
} }
void OmpVisitor::Post(const parser::OpenMPBlockConstruct &x) { void OmpVisitor::Post(const parser::OpenMPBlockConstruct &x) {
if (NeedsScope(x)) { if (NeedsScope(x)) {
PopScope(); PopScope();
} }
▲ Show 20 Lines • Show All 794 Lines • ▼ Show 20 Lines
void ScopeHandler::PushScope(Scope::Kind kind, Symbol *symbol) { void ScopeHandler::PushScope(Scope::Kind kind, Symbol *symbol) {
PushScope(currScope().MakeScope(kind, symbol)); PushScope(currScope().MakeScope(kind, symbol));
} }
void ScopeHandler::PushScope(Scope &scope) { void ScopeHandler::PushScope(Scope &scope) {
currScope_ = &scope; currScope_ = &scope;
auto kind{currScope_->kind()}; auto kind{currScope_->kind()};
if (kind != Scope::Kind::BlockConstruct && if (kind != Scope::Kind::BlockConstruct &&
kind != Scope::Kind::OtherConstruct) { kind != Scope::Kind::OtherConstruct &&
kind != Scope::Kind::OMPACCConstruct) {
BeginScope(scope); BeginScope(scope);
} }
// The name of a module or submodule cannot be "used" in its scope, // The name of a module or submodule cannot be "used" in its scope,
// as we read 19.3.1(2), so we allow the name to be used as a local // as we read 19.3.1(2), so we allow the name to be used as a local
// identifier in the module or submodule too. Same with programs // identifier in the module or submodule too. Same with programs
// (14.1(3)) and BLOCK DATA. // (14.1(3)) and BLOCK DATA.
if (!currScope_->IsDerivedType() && kind != Scope::Kind::Module && if (!currScope_->IsDerivedType() && kind != Scope::Kind::Module &&
kind != Scope::Kind::MainProgram && kind != Scope::Kind::BlockData) { kind != Scope::Kind::MainProgram && kind != Scope::Kind::BlockData) {
▲ Show 20 Lines • Show All 67 Lines • ▼ Show 20 Lines
Symbol &ScopeHandler::MakeSymbol(const SourceName &name, Attrs attrs) { Symbol &ScopeHandler::MakeSymbol(const SourceName &name, Attrs attrs) {
return MakeSymbol(currScope(), name, attrs); return MakeSymbol(currScope(), name, attrs);
} }
Symbol &ScopeHandler::MakeSymbol(const parser::Name &name, Attrs attrs) { Symbol &ScopeHandler::MakeSymbol(const parser::Name &name, Attrs attrs) {
return Resolve(name, MakeSymbol(name.source, attrs)); return Resolve(name, MakeSymbol(name.source, attrs));
} }
Symbol &ScopeHandler::MakeHostAssocSymbol( Symbol &ScopeHandler::MakeHostAssocSymbol(
const parser::Name &name, const Symbol &hostSymbol) { const parser::Name &name, const Symbol &hostSymbol) {
Symbol &symbol{*NonDerivedTypeScope() Scope *scope{&NonDerivedTypeScope()};
.try_emplace(name.source, HostAssocDetails{hostSymbol}) while (scope->kind() == Scope::Kind::OMPACCConstruct)
scope = &scope->parent();
Symbol &symbol{*scope->try_emplace(name.source, HostAssocDetails{hostSymbol})
.first->second}; .first->second};
name.symbol = &symbol; name.symbol = &symbol;
symbol.attrs() = hostSymbol.attrs(); // TODO: except PRIVATE, PUBLIC? symbol.attrs() = hostSymbol.attrs(); // TODO: except PRIVATE, PUBLIC?
symbol.flags() = hostSymbol.flags(); symbol.flags() = hostSymbol.flags();
return symbol; return symbol;
} }
Symbol &ScopeHandler::CopySymbol(const SourceName &name, const Symbol &symbol) { Symbol &ScopeHandler::CopySymbol(const SourceName &name, const Symbol &symbol) {
CHECK(!FindInScope(name)); CHECK(!FindInScope(name));
▲ Show 20 Lines • Show All 5,877 Lines • Show Last 20 Lines

flang/test/Lower/OpenACC/hostassoc-useassoc.f90

  • This file was added.
! This test checks lowering of host associated var in OpenACC region
! and the host is use associated.
! RUN: bbc -fopenacc -emit-fir %s -o - | FileCheck %s
! RUN: %flang_fc1 -emit-fir -fopenacc %s -o - | FileCheck %s
module tpmod
real :: val = 2.0
end module
subroutine tptest
use tpmod
call tps()
contains
! CHECK-LABEL: func.func @_QFtptestPtps() {
! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QMtpmodEval) : !fir.ref<f32>
! CHECK: acc.parallel {
! CHECK: %[[VAL_1:.*]] = arith.constant 1.000000e+00 : f32
! CHECK: fir.store %[[VAL_1]] to %[[VAL_0]] : !fir.ref<f32>
! CHECK: acc.yield
! CHECK: }
! CHECK: return
! CHECK: }
subroutine tps()
!$acc parallel
val = 1.0
!$acc end parallel
end subroutine
end subroutine

flang/test/Lower/OpenMP/hostassoc-useassoc.f90

  • This file was added.
! This test checks lowering of host associated var in OpenMP region
! and the host is use associated.
! RUN: bbc -fopenmp -emit-fir %s -o - | FileCheck %s
! RUN: %flang_fc1 -emit-fir -fopenmp %s -o - | FileCheck %s
module tpmod
real :: val = 2.0
end module
subroutine tptest
use tpmod
call tps()
contains
! CHECK-LABEL: func.func @_QFtptestPtps() {
! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QMtpmodEval) : !fir.ref<f32>
! CHECK: omp.parallel {
! CHECK: %[[VAL_1:.*]] = arith.constant 1.000000e+00 : f32
! CHECK: fir.store %[[VAL_1]] to %[[VAL_0]] : !fir.ref<f32>
! CHECK: omp.terminator
! CHECK: }
! CHECK: return
! CHECK: }
subroutine tps()
!$omp parallel
!$omp single
val = 1.0
!$omp end single
!$omp end parallel
end subroutine
end subroutine
subroutine tptest2
use tpmod
call tps()
contains
! CHECK-LABEL: func.func @_QFtptest2Ptps() {
! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QMtpmodEval) : !fir.ref<f32>
! CHECK: omp.parallel {
! CHECK: omp.single {
! CHECK: %[[VAL_1:.*]] = arith.constant 1.000000e+00 : f32
! CHECK: fir.store %[[VAL_1]] to %[[VAL_0]] : !fir.ref<f32>
! CHECK: omp.terminator
! CHECK: }
! CHECK: omp.terminator
! CHECK: }
! CHECK: return
! CHECK: }
subroutine tps()
!$omp parallel
!$omp single
val = 1.0
!$omp end single
!$omp end parallel
end subroutine
end subroutine

flang/test/Semantics/OpenACC/acc-symbols01.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc
!DEF: /mm MainProgram !DEF: /mm MainProgram
program mm program mm
!DEF: /mm/x ObjectEntity REAL(4) !DEF: /mm/x ObjectEntity REAL(4)
!DEF: /mm/y ObjectEntity REAL(4) !DEF: /mm/y ObjectEntity REAL(4)
real x, y real x, y
!DEF: /mm/a ObjectEntity INTEGER(4) !DEF: /mm/a ObjectEntity INTEGER(4)
!DEF: /mm/b ObjectEntity INTEGER(4) !DEF: /mm/b ObjectEntity INTEGER(4)
!DEF: /mm/c ObjectEntity INTEGER(4) !DEF: /mm/c ObjectEntity INTEGER(4)
!DEF: /mm/i ObjectEntity INTEGER(4) !DEF: /mm/i ObjectEntity INTEGER(4)
integer a(10), b(10), c(10), i integer a(10), b(10), c(10), i
!REF: /mm/b !REF: /mm/b
b = 2 b = 2
!$acc parallel present(c) firstprivate(b) private(a) !$acc parallel present(c) firstprivate(b) private(a)
!$acc loop !$acc loop
!DEF: /mm/OtherConstruct1/i (AccPrivate, AccPreDetermined) HostAssoc INTEGER(4) !DEF: /mm/OMPACCConstruct1/i (AccPrivate, AccPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /mm/OtherConstruct1/a (AccPrivate) HostAssoc INTEGER(4) !DEF: /mm/OMPACCConstruct1/a (AccPrivate) HostAssoc INTEGER(4)
!REF: /mm/OtherConstruct1/i !REF: /mm/OMPACCConstruct1/i
!DEF: /mm/OtherConstruct1/b (AccFirstPrivate) HostAssoc INTEGER(4) !DEF: /mm/OMPACCConstruct1/b (AccFirstPrivate) HostAssoc INTEGER(4)
a(i) = b(i) a(i) = b(i)
end do end do
!$acc end parallel !$acc end parallel
end program end program

flang/test/Semantics/OpenMP/common-block.f90

! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s ! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
program main program main
!CHECK: a size=4 offset=0: ObjectEntity type: REAL(4) !CHECK: a size=4 offset=0: ObjectEntity type: REAL(4)
!CHECK: b size=8 offset=4: ObjectEntity type: INTEGER(4) shape: 1_8:2_8 !CHECK: b size=8 offset=4: ObjectEntity type: INTEGER(4) shape: 1_8:2_8
!CHECK: c size=4 offset=12: ObjectEntity type: REAL(4) !CHECK: c size=4 offset=12: ObjectEntity type: REAL(4)
!CHECK: blk size=16 offset=0: CommonBlockDetails alignment=4: a b c !CHECK: blk size=16 offset=0: CommonBlockDetails alignment=4: a b c
real :: a, c real :: a, c
integer :: b(2) integer :: b(2)
common /blk/ a, b, c common /blk/ a, b, c
!$omp parallel private(/blk/) !$omp parallel private(/blk/)
!CHECK: OtherConstruct scope: size=0 alignment=1 !CHECK: OMPACCConstruct scope: size=0 alignment=1
!CHECK: a (OmpPrivate): HostAssoc !CHECK: a (OmpPrivate): HostAssoc
!CHECK: b (OmpPrivate): HostAssoc !CHECK: b (OmpPrivate): HostAssoc
!CHECK: c (OmpPrivate): HostAssoc !CHECK: c (OmpPrivate): HostAssoc
call sub(a, b, c) call sub(a, b, c)
!$omp end parallel !$omp end parallel
end program end program

flang/test/Semantics/OpenMP/default-clause.f90

! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s ! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
! Test symbols generated in block constructs in the ! Test symbols generated in block constructs in the
! presence of `default(...)` clause ! presence of `default(...)` clause
program sample program sample
!CHECK: a size=4 offset=20: ObjectEntity type: INTEGER(4) !CHECK: a size=4 offset=20: ObjectEntity type: INTEGER(4)
!CHECK: k size=4 offset=16: ObjectEntity type: INTEGER(4) !CHECK: k size=4 offset=16: ObjectEntity type: INTEGER(4)
!CHECK: w size=4 offset=12: ObjectEntity type: INTEGER(4) !CHECK: w size=4 offset=12: ObjectEntity type: INTEGER(4)
!CHECK: x size=4 offset=0: ObjectEntity type: INTEGER(4) !CHECK: x size=4 offset=0: ObjectEntity type: INTEGER(4)
!CHECK: y size=4 offset=4: ObjectEntity type: INTEGER(4) !CHECK: y size=4 offset=4: ObjectEntity type: INTEGER(4)
!CHECK: z size=4 offset=8: ObjectEntity type: INTEGER(4) !CHECK: z size=4 offset=8: ObjectEntity type: INTEGER(4)
integer x, y, z, w, k, a integer x, y, z, w, k, a
!$omp parallel firstprivate(x) private(y) shared(w) default(private) !$omp parallel firstprivate(x) private(y) shared(w) default(private)
!CHECK: OtherConstruct scope: size=0 alignment=1 !CHECK: OMPACCConstruct scope: size=0 alignment=1
!CHECK: a (OmpPrivate): HostAssoc !CHECK: a (OmpPrivate): HostAssoc
!CHECK: k (OmpPrivate): HostAssoc !CHECK: k (OmpPrivate): HostAssoc
!CHECK: x (OmpFirstPrivate): HostAssoc !CHECK: x (OmpFirstPrivate): HostAssoc
!CHECK: y (OmpPrivate): HostAssoc !CHECK: y (OmpPrivate): HostAssoc
!CHECK: z (OmpPrivate): HostAssoc !CHECK: z (OmpPrivate): HostAssoc
!$omp parallel default(private) !$omp parallel default(private)
!CHECK: OtherConstruct scope: size=0 alignment=1 !CHECK: OMPACCConstruct scope: size=0 alignment=1
!CHECK: a (OmpPrivate): HostAssoc !CHECK: a (OmpPrivate): HostAssoc
!CHECK: x (OmpPrivate): HostAssoc !CHECK: x (OmpPrivate): HostAssoc
!CHECK: y (OmpPrivate): HostAssoc !CHECK: y (OmpPrivate): HostAssoc
y = 20 y = 20
x = 10 x = 10
!$omp parallel !$omp parallel
!CHECK: OtherConstruct scope: size=0 alignment=1 !CHECK: OMPACCConstruct scope: size=0 alignment=1
a = 10 a = 10
!$omp end parallel !$omp end parallel
!$omp end parallel !$omp end parallel
!$omp parallel default(firstprivate) shared(y) private(w) !$omp parallel default(firstprivate) shared(y) private(w)
!CHECK: OtherConstruct scope: size=0 alignment=1 !CHECK: OMPACCConstruct scope: size=0 alignment=1
!CHECK: k (OmpFirstPrivate): HostAssoc !CHECK: k (OmpFirstPrivate): HostAssoc
!CHECK: w (OmpPrivate): HostAssoc !CHECK: w (OmpPrivate): HostAssoc
!CHECK: z (OmpFirstPrivate): HostAssoc !CHECK: z (OmpFirstPrivate): HostAssoc
y = 30 y = 30
w = 40 w = 40
z = 50 z = 50
k = 40 k = 40
!$omp end parallel !$omp end parallel
!$omp end parallel !$omp end parallel
end program sample end program sample

flang/test/Semantics/OpenMP/do-schedule03.f90

Show All 9 Linesprogram ompdoschedule
real a(100),y(100),z(100) real a(100),y(100),z(100)
!DEF: /ompdoschedule/b ObjectEntity INTEGER(4) !DEF: /ompdoschedule/b ObjectEntity INTEGER(4)
!DEF: /ompdoschedule/i ObjectEntity INTEGER(4) !DEF: /ompdoschedule/i ObjectEntity INTEGER(4)
!DEF: /ompdoschedule/n ObjectEntity INTEGER(4) !DEF: /ompdoschedule/n ObjectEntity INTEGER(4)
integer b,i,n integer b,i,n
!REF: /ompdoschedule/b !REF: /ompdoschedule/b
b = 10 b = 10
!$omp do schedule(static,b-b) !$omp do schedule(static,b-b)
!DEF: /ompdoschedule/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /ompdoschedule/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
!REF: /ompdoschedule/n !REF: /ompdoschedule/n
do i = 2,n+1 do i = 2,n+1
!REF: /ompdoschedule/y !REF: /ompdoschedule/y
!REF: /ompdoschedule/OtherConstruct1/i !REF: /ompdoschedule/OMPACCConstruct1/i
!REF: /ompdoschedule/z !REF: /ompdoschedule/z
!REF: /ompdoschedule/a !REF: /ompdoschedule/a
y(i) = z(i-1) + a(i) y(i) = z(i-1) + a(i)
end do end do
!$omp end do !$omp end do
end program ompdoschedule end program ompdoschedule

flang/test/Semantics/OpenMP/do-schedule04.f90

Show All 14 Linessubroutine tds
!DEF: /tds/k ObjectEntity INTEGER(4) !DEF: /tds/k ObjectEntity INTEGER(4)
integer i,j,k integer i,j,k
!REF: /tds/j !REF: /tds/j
j = 11 j = 11
!REF: /tds/k !REF: /tds/k
k = 12 k = 12
!$omp do schedule(static,j-k) !$omp do schedule(static,j-k)
!DEF: /tds/OtherConstruct1/i (OmpPrivate,OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /tds/OMPACCConstruct1/i (OmpPrivate,OmpPreDetermined) HostAssoc INTEGER(4)
do i = 1,10 do i = 1,10
!REF: /tds/y !REF: /tds/y
!REF: /tds/OtherConstruct1/i !REF: /tds/OMPACCConstruct1/i
!REF: /tds/z !REF: /tds/z
!REF: /tds/a !REF: /tds/a
y(i) = z(i-1)+a(i) y(i) = z(i-1)+a(i)
end do end do
!$omp end do !$omp end do
end subroutine tds end subroutine tds

flang/test/Semantics/OpenMP/do01-positivecase.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The loop iteration variable may not appear in a firstprivate directive. ! The loop iteration variable may not appear in a firstprivate directive.
! A positive case ! A positive case
!DEF: /omp_do MainProgram !DEF: /omp_do MainProgram
program omp_do program omp_do
!DEF: /omp_do/i ObjectEntity INTEGER(4) !DEF: /omp_do/i ObjectEntity INTEGER(4)
integer i integer i
!$omp do firstprivate(k) !$omp do firstprivate(k)
!DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
print *, "Hello" print *, "Hello"
end do end do
!$omp end do !$omp end do
end program omp_do end program omp_do

flang/test/Semantics/OpenMP/do04-positivecase.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Do Loop Constructs ! 2.7.1 Do Loop Constructs
!DEF: /omp_do1 MainProgram !DEF: /omp_do1 MainProgram
program omp_do1 program omp_do1
!DEF: /omp_do1/i ObjectEntity INTEGER(4) !DEF: /omp_do1/i ObjectEntity INTEGER(4)
!DEF: /omp_do1/j ObjectEntity INTEGER(4) !DEF: /omp_do1/j ObjectEntity INTEGER(4)
!DEF: /omp_do1/k (OmpThreadprivate) ObjectEntity INTEGER(4) !DEF: /omp_do1/k (OmpThreadprivate) ObjectEntity INTEGER(4)
!DEF: /omp_do1/n (OmpThreadprivate) ObjectEntity INTEGER(4) !DEF: /omp_do1/n (OmpThreadprivate) ObjectEntity INTEGER(4)
integer i, j, k, n integer i, j, k, n
!$omp threadprivate (k,n) !$omp threadprivate (k,n)
!$omp do !$omp do
!DEF: /omp_do1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_do1/j !REF: /omp_do1/j
do j=1,10 do j=1,10
print *, "Hello" print *, "Hello"
end do end do
end do end do
!$omp end do !$omp end do
end program omp_do1 end program omp_do1

flang/test/Semantics/OpenMP/do05-positivecase.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct restrictions on single directive. ! 2.7.1 Loop Construct restrictions on single directive.
! A positive case ! A positive case
!DEF: /omp_do MainProgram !DEF: /omp_do MainProgram
program omp_do program omp_do
!DEF: /omp_do/i ObjectEntity INTEGER(4) !DEF: /omp_do/i ObjectEntity INTEGER(4)
!DEF: /omp_do/n ObjectEntity INTEGER(4) !DEF: /omp_do/n ObjectEntity INTEGER(4)
integer i,n integer i,n
!$omp parallel !$omp parallel
!DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!$omp single !$omp single
print *, "hello" print *, "hello"
!$omp end single !$omp end single
end do end do
!$omp end parallel !$omp end parallel
!$omp parallel default(shared) !$omp parallel default(shared)
!$omp do !$omp do
!DEF: /omp_do/OtherConstruct2/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do/OMPACCConstruct2/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
!REF: /omp_do/n !REF: /omp_do/n
do i=1,n do i=1,n
!$omp parallel !$omp parallel
!$omp single !$omp single
!DEF: /work EXTERNAL (Subroutine) ProcEntity !DEF: /work EXTERNAL (Subroutine) ProcEntity
!REF: /omp_do/OtherConstruct2/OtherConstruct1/i !REF: /omp_do/OMPACCConstruct2/OMPACCConstruct1/i
call work(i, 1) call work(i, 1)
!$omp end single !$omp end single
!$omp end parallel !$omp end parallel
end do end do
!$omp end do !$omp end do
!$omp end parallel !$omp end parallel
end program omp_do end program omp_do

flang/test/Semantics/OpenMP/do06-positivecases.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The ordered clause must be present on the loop construct if any ordered ! The ordered clause must be present on the loop construct if any ordered
! region ever binds to a loop region arising from the loop construct. ! region ever binds to a loop region arising from the loop construct.
! A positive case ! A positive case
!DEF: /omp_do MainProgram !DEF: /omp_do MainProgram
program omp_do program omp_do
!DEF: /omp_do/i ObjectEntity INTEGER(4) !DEF: /omp_do/i ObjectEntity INTEGER(4)
!DEF: /omp_do/j ObjectEntity INTEGER(4) !DEF: /omp_do/j ObjectEntity INTEGER(4)
!DEF: /omp_do/k ObjectEntity INTEGER(4) !DEF: /omp_do/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp do ordered !$omp do ordered
!DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!$omp ordered !$omp ordered
!DEF: /my_func EXTERNAL (Subroutine) ProcEntity !DEF: /my_func EXTERNAL (Subroutine) ProcEntity
call my_func call my_func
!$omp end ordered !$omp end ordered
end do end do
!$omp end do !$omp end do
end program omp_do end program omp_do

flang/test/Semantics/OpenMP/do11.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Do Loop Constructs ! 2.7.1 Do Loop Constructs
!DEF: /omp_do MainProgram !DEF: /omp_do MainProgram
program omp_do program omp_do
!DEF: /omp_do/i ObjectEntity INTEGER(4) !DEF: /omp_do/i ObjectEntity INTEGER(4)
!DEF: /omp_do/j ObjectEntity INTEGER(4) !DEF: /omp_do/j ObjectEntity INTEGER(4)
!DEF: /omp_do/k ObjectEntity INTEGER(4) !DEF: /omp_do/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp do !$omp do
!DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_do/j !REF: /omp_do/j
do j=1,10 do j=1,10
!REF: /omp_do/OtherConstruct1/i !REF: /omp_do/OMPACCConstruct1/i
!REF: /omp_do/j !REF: /omp_do/j
print *, "it", i, j print *, "it", i, j
end do end do
end do end do
!$omp end do !$omp end do
end program omp_do end program omp_do
!DEF: /omp_do2 (Subroutine)Subprogram !DEF: /omp_do2 (Subroutine)Subprogram
subroutine omp_do2 subroutine omp_do2
!DEF: /omp_do2/i ObjectEntity INTEGER(4) !DEF: /omp_do2/i ObjectEntity INTEGER(4)
!DEF: /omp_do2/k ObjectEntity INTEGER(4) !DEF: /omp_do2/k ObjectEntity INTEGER(4)
integer :: i = 0, k integer :: i = 0, k
!$omp do !$omp do
!DEF: /omp_do2/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_do2/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_do2/OtherConstruct1/i !REF: /omp_do2/OMPACCConstruct1/i
print *, "it", i print *, "it", i
end do end do
!$omp end do !$omp end do
end subroutine omp_do2 end subroutine omp_do2

flang/test/Semantics/OpenMP/do12.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Do Loop constructs. ! 2.7.1 Do Loop constructs.
!DEF: /omp_cycle MainProgram !DEF: /omp_cycle MainProgram
program omp_cycle program omp_cycle
!$omp do collapse(1) !$omp do collapse(1)
!DEF: /omp_cycle/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!REF: /omp_cycle/OtherConstruct1/i !REF: /omp_cycle/OMPACCConstruct1/i
if (i<1) cycle if (i<1) cycle
!DEF: /omp_cycle/j (Implicit) ObjectEntity INTEGER(4) !DEF: /omp_cycle/j (Implicit) ObjectEntity INTEGER(4)
do j=0,10 do j=0,10
!DEF: /omp_cycle/k (Implicit) ObjectEntity INTEGER(4) !DEF: /omp_cycle/k (Implicit) ObjectEntity INTEGER(4)
do k=0,10 do k=0,10
!REF: /omp_cycle/OtherConstruct1/i !REF: /omp_cycle/OMPACCConstruct1/i
!REF: /omp_cycle/j !REF: /omp_cycle/j
!REF: /omp_cycle/k !REF: /omp_cycle/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(1) !$omp do collapse(1)
!DEF: /omp_cycle/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!REF: /omp_cycle/j !REF: /omp_cycle/j
do j=0,10 do j=0,10
!REF: /omp_cycle/OtherConstruct2/i !REF: /omp_cycle/OMPACCConstruct2/i
if (i<1) cycle if (i<1) cycle
!REF: /omp_cycle/k !REF: /omp_cycle/k
do k=0,10 do k=0,10
!REF: /omp_cycle/OtherConstruct2/i !REF: /omp_cycle/OMPACCConstruct2/i
!REF: /omp_cycle/j !REF: /omp_cycle/j
!REF: /omp_cycle/k !REF: /omp_cycle/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(2) !$omp do collapse(2)
!DEF: /omp_cycle/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!DEF: /omp_cycle/OtherConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=0,10 do j=0,10
!REF: /omp_cycle/k !REF: /omp_cycle/k
do k=0,10 do k=0,10
!REF: /omp_cycle/OtherConstruct3/i !REF: /omp_cycle/OMPACCConstruct3/i
if (i<1) cycle if (i<1) cycle
!REF: /omp_cycle/OtherConstruct3/i !REF: /omp_cycle/OMPACCConstruct3/i
!REF: /omp_cycle/OtherConstruct3/j !REF: /omp_cycle/OMPACCConstruct3/j
!REF: /omp_cycle/k !REF: /omp_cycle/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(3) !$omp do collapse(3)
!DEF: /omp_cycle/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!DEF: /omp_cycle/OtherConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=0,10 do j=0,10
!DEF: /omp_cycle/OtherConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do k=0,10 do k=0,10
!REF: /omp_cycle/OtherConstruct4/i !REF: /omp_cycle/OMPACCConstruct4/i
if (i<1) cycle if (i<1) cycle
!REF: /omp_cycle/OtherConstruct4/i !REF: /omp_cycle/OMPACCConstruct4/i
!REF: /omp_cycle/OtherConstruct4/j !REF: /omp_cycle/OMPACCConstruct4/j
!REF: /omp_cycle/OtherConstruct4/k !REF: /omp_cycle/OMPACCConstruct4/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(3) !$omp do collapse(3)
!DEF: /omp_cycle/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo:do i=0,10 foo:do i=0,10
!DEF: /omp_cycle/OtherConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo1:do j=0,10 foo1:do j=0,10
!DEF: /omp_cycle/OtherConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo2:do k=0,10 foo2:do k=0,10
!REF: /omp_cycle/OtherConstruct5/i !REF: /omp_cycle/OMPACCConstruct5/i
if (i<1) cycle foo2 if (i<1) cycle foo2
!REF: /omp_cycle/OtherConstruct5/i !REF: /omp_cycle/OMPACCConstruct5/i
!REF: /omp_cycle/OtherConstruct5/j !REF: /omp_cycle/OMPACCConstruct5/j
!REF: /omp_cycle/OtherConstruct5/k !REF: /omp_cycle/OMPACCConstruct5/k
print *, i, j, k print *, i, j, k
end do foo2 end do foo2
end do foo1 end do foo1
end do foo end do foo
!$omp end do !$omp end do
end program omp_cycle end program omp_cycle

flang/test/Semantics/OpenMP/do14.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Do Loop constructs. ! 2.7.1 Do Loop constructs.
!DEF: /omp_cycle MainProgram !DEF: /omp_cycle MainProgram
program omp_cycle program omp_cycle
!$omp do collapse(1) !$omp do collapse(1)
!DEF: /omp_cycle/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
cycle cycle
!DEF: /omp_cycle/j (Implicit) ObjectEntity INTEGER(4) !DEF: /omp_cycle/j (Implicit) ObjectEntity INTEGER(4)
do j=0,10 do j=0,10
!DEF: /omp_cycle/k (Implicit) ObjectEntity INTEGER(4) !DEF: /omp_cycle/k (Implicit) ObjectEntity INTEGER(4)
do k=0,10 do k=0,10
!REF: /omp_cycle/OtherConstruct1/i !REF: /omp_cycle/OMPACCConstruct1/i
!REF: /omp_cycle/j !REF: /omp_cycle/j
!REF: /omp_cycle/k !REF: /omp_cycle/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(1) !$omp do collapse(1)
!DEF: /omp_cycle/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!REF: /omp_cycle/j !REF: /omp_cycle/j
do j=0,10 do j=0,10
cycle cycle
!REF: /omp_cycle/k !REF: /omp_cycle/k
do k=0,10 do k=0,10
!REF: /omp_cycle/OtherConstruct2/i !REF: /omp_cycle/OMPACCConstruct2/i
!REF: /omp_cycle/j !REF: /omp_cycle/j
!REF: /omp_cycle/k !REF: /omp_cycle/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(2) !$omp do collapse(2)
!DEF: /omp_cycle/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!DEF: /omp_cycle/OtherConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=0,10 do j=0,10
!REF: /omp_cycle/k !REF: /omp_cycle/k
do k=0,10 do k=0,10
cycle cycle
!REF: /omp_cycle/OtherConstruct3/i !REF: /omp_cycle/OMPACCConstruct3/i
!REF: /omp_cycle/OtherConstruct3/j !REF: /omp_cycle/OMPACCConstruct3/j
!REF: /omp_cycle/k !REF: /omp_cycle/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do collapse(3) !$omp do collapse(3)
!DEF: /omp_cycle/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
!DEF: /omp_cycle/OtherConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=0,10 do j=0,10
!DEF: /omp_cycle/OtherConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do k=0,10 do k=0,10
cycle cycle
!REF: /omp_cycle/OtherConstruct4/i !REF: /omp_cycle/OMPACCConstruct4/i
!REF: /omp_cycle/OtherConstruct4/j !REF: /omp_cycle/OMPACCConstruct4/j
!REF: /omp_cycle/OtherConstruct4/k !REF: /omp_cycle/OMPACCConstruct4/k
print *, i, j, k print *, i, j, k
end do end do
end do end do
end do end do
!$omp end do !$omp end do
!$omp do ordered(3) !$omp do ordered(3)
!DEF: /omp_cycle/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo:do i=0,10 foo:do i=0,10
!DEF: /omp_cycle/OtherConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo1:do j=0,10 foo1:do j=0,10
!DEF: /omp_cycle/OtherConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/OMPACCConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo2:do k=0,10 foo2:do k=0,10
cycle foo2 cycle foo2
!REF: /omp_cycle/OtherConstruct5/i !REF: /omp_cycle/OMPACCConstruct5/i
!REF: /omp_cycle/OtherConstruct5/j !REF: /omp_cycle/OMPACCConstruct5/j
!REF: /omp_cycle/OtherConstruct5/k !REF: /omp_cycle/OMPACCConstruct5/k
print *, i, j, k print *, i, j, k
end do foo2 end do foo2
end do foo1 end do foo1
end do foo end do foo
!$omp end do !$omp end do
end program omp_cycle end program omp_cycle

flang/test/Semantics/OpenMP/do17.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Do Loop constructs. ! 2.7.1 Do Loop constructs.
!DEF: /test MainProgram !DEF: /test MainProgram
program test program test
!DEF: /test/i ObjectEntity INTEGER(4) !DEF: /test/i ObjectEntity INTEGER(4)
!DEF: /test/j ObjectEntity INTEGER(4) !DEF: /test/j ObjectEntity INTEGER(4)
!DEF: /test/k ObjectEntity INTEGER(4) !DEF: /test/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp do collapse(2) !$omp do collapse(2)
!DEF: /test/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo: do i=0,10 foo: do i=0,10
!DEF: /test/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test/OMPACCConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo1: do j=0,10 foo1: do j=0,10
!REF: /test/k !REF: /test/k
foo2: do k=0,10 foo2: do k=0,10
!REF: /test/OtherConstruct1/i !REF: /test/OMPACCConstruct1/i
select case (i) select case (i)
case (5) case (5)
cycle foo1 cycle foo1
case (7) case (7)
cycle foo2 cycle foo2
end select end select
!REF: /test/OtherConstruct1/i !REF: /test/OMPACCConstruct1/i
!REF: /test/OtherConstruct1/j !REF: /test/OMPACCConstruct1/j
!REF: /test/k !REF: /test/k
print *, i, j, k print *, i, j, k
end do foo2 end do foo2
end do foo1 end do foo1
end do foo end do foo
!$omp do collapse(2) !$omp do collapse(2)
!DEF: /test/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test/OMPACCConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo: do i=0,10 foo: do i=0,10
!DEF: /test/OtherConstruct2/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test/OMPACCConstruct2/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
foo1: do j=0,10 foo1: do j=0,10
!REF: /test/k !REF: /test/k
foo2: do k=0,10 foo2: do k=0,10
!REF: /test/OtherConstruct2/i !REF: /test/OMPACCConstruct2/i
if (i<3) then if (i<3) then
cycle foo1 cycle foo1
!REF: /test/OtherConstruct2/i !REF: /test/OMPACCConstruct2/i
else if (i>8) then else if (i>8) then
cycle foo1 cycle foo1
else else
cycle foo2 cycle foo2
end if end if
!REF: /test/OtherConstruct2/i !REF: /test/OMPACCConstruct2/i
!REF: /test/OtherConstruct2/j !REF: /test/OMPACCConstruct2/j
!REF: /test/k !REF: /test/k
print *, i, j, k print *, i, j, k
end do foo2 end do foo2
end do foo1 end do foo1
end do foo end do foo
!$omp end do !$omp end do
end program test end program test

flang/test/Semantics/OpenMP/reduction08.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause Positive cases ! 2.15.3.6 Reduction Clause Positive cases
!DEF: /omp_reduction MainProgram !DEF: /omp_reduction MainProgram
program omp_reduction program omp_reduction
!DEF: /omp_reduction/i ObjectEntity INTEGER(4) !DEF: /omp_reduction/i ObjectEntity INTEGER(4)
integer i integer i
!DEF: /omp_reduction/k ObjectEntity INTEGER(4) !DEF: /omp_reduction/k ObjectEntity INTEGER(4)
integer :: k = 10 integer :: k = 10
!DEF: /omp_reduction/m ObjectEntity INTEGER(4) !DEF: /omp_reduction/m ObjectEntity INTEGER(4)
integer :: m = 12 integer :: m = 12
!$omp parallel do reduction(max:k) !$omp parallel do reduction(max:k)
!DEF: /omp_reduction/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct1/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct1/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/max ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity !DEF: /omp_reduction/max ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m !REF: /omp_reduction/m
k = max(k, m) k = max(k, m)
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(min:k) !$omp parallel do reduction(min:k)
!DEF: /omp_reduction/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct2/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct2/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity !DEF: /omp_reduction/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m !REF: /omp_reduction/m
k = min(k, m) k = min(k, m)
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(iand:k) !$omp parallel do reduction(iand:k)
!DEF: /omp_reduction/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct3/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct3/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/iand ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity !DEF: /omp_reduction/iand ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m !REF: /omp_reduction/m
k = iand(k, m) k = iand(k, m)
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(ior:k) !$omp parallel do reduction(ior:k)
!DEF: /omp_reduction/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct4/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct4/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/ior ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity !DEF: /omp_reduction/ior ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m !REF: /omp_reduction/m
k = ior(k, m) k = ior(k, m)
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(ieor:k) !$omp parallel do reduction(ieor:k)
!DEF: /omp_reduction/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct5/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct5/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/ieor ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity !DEF: /omp_reduction/ieor ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m !REF: /omp_reduction/m
k = ieor(k,m) k = ieor(k,m)
end do end do
!$omp end parallel do !$omp end parallel do
end program omp_reduction end program omp_reduction

flang/test/Semantics/OpenMP/reduction09.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause Positive cases. ! 2.15.3.6 Reduction Clause Positive cases.
!DEF: /omp_reduction MainProgram !DEF: /omp_reduction MainProgram
program omp_reduction program omp_reduction
!DEF: /omp_reduction/i ObjectEntity INTEGER(4) !DEF: /omp_reduction/i ObjectEntity INTEGER(4)
integer i integer i
!DEF: /omp_reduction/k ObjectEntity INTEGER(4) !DEF: /omp_reduction/k ObjectEntity INTEGER(4)
integer :: k = 10 integer :: k = 10
!DEF: /omp_reduction/a ObjectEntity INTEGER(4) !DEF: /omp_reduction/a ObjectEntity INTEGER(4)
integer a(10) integer a(10)
!DEF: /omp_reduction/b ObjectEntity INTEGER(4) !DEF: /omp_reduction/b ObjectEntity INTEGER(4)
integer b(10,10,10) integer b(10,10,10)
!$omp parallel shared(k) !$omp parallel shared(k)
!$omp do reduction(+:k) !$omp do reduction(+:k)
!DEF: /omp_reduction/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct1/OtherConstruct1/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct1/OMPACCConstruct1/k (OmpReduction) HostAssoc INTEGER(4)
k = k+1 k = k+1
end do end do
!$omp end do !$omp end do
!$omp end parallel !$omp end parallel
!$omp parallel do reduction(+:a(10)) !$omp parallel do reduction(+:a(10))
!DEF: /omp_reduction/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_reduction/k !REF: /omp_reduction/k
k = k+1 k = k+1
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(+:a(1:10:1)) !$omp parallel do reduction(+:a(1:10:1))
!DEF: /omp_reduction/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_reduction/k !REF: /omp_reduction/k
k = k+1 k = k+1
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(+:b(1:10:1,1:5,2)) !$omp parallel do reduction(+:b(1:10:1,1:5,2))
!DEF: /omp_reduction/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_reduction/k !REF: /omp_reduction/k
k = k+1 k = k+1
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel do reduction(+:b(1:10:1,1:5,2:5:1)) !$omp parallel do reduction(+:b(1:10:1,1:5,2:5:1))
!DEF: /omp_reduction/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /omp_reduction/k !REF: /omp_reduction/k
k = k+1 k = k+1
end do end do
!$omp end parallel do !$omp end parallel do
!$omp parallel private(i) !$omp parallel private(i)
!$omp do reduction(+:k) reduction(+:j) !$omp do reduction(+:k) reduction(+:j)
!DEF: /omp_reduction/OtherConstruct6/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct6/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct6/OtherConstruct1/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct6/OMPACCConstruct1/k (OmpReduction) HostAssoc INTEGER(4)
k = k+1 k = k+1
end do end do
!$omp end do !$omp end do
!$omp end parallel !$omp end parallel
!$omp do reduction(+:k) reduction(*:j) reduction(+:l) !$omp do reduction(+:k) reduction(*:j) reduction(+:l)
!DEF: /omp_reduction/OtherConstruct7/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct7/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct7/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct7/k (OmpReduction) HostAssoc INTEGER(4)
k = k+1 k = k+1
end do end do
!$omp end do !$omp end do
!$omp do reduction(.and.:k) reduction(.or.:j) reduction(.eqv.:l) !$omp do reduction(.and.:k) reduction(.or.:j) reduction(.eqv.:l)
!DEF: /omp_reduction/OtherConstruct8/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct8/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /omp_reduction/OtherConstruct8/k (OmpReduction) HostAssoc INTEGER(4) !DEF: /omp_reduction/OMPACCConstruct8/k (OmpReduction) HostAssoc INTEGER(4)
k = k+1 k = k+1
end do end do
!$omp end do !$omp end do
end program omp_reduction end program omp_reduction

flang/test/Semantics/OpenMP/symbol01.f90

Show All 39 Lines
t%b = 1 t%b = 1
!REF: /mm/b !REF: /mm/b
b = 2 b = 2
!DEF: /mm/a (Implicit) ObjectEntity REAL(4) !DEF: /mm/a (Implicit) ObjectEntity REAL(4)
a = 1.0 a = 1.0
!DEF: /mm/c (Implicit) ObjectEntity REAL(4) !DEF: /mm/c (Implicit) ObjectEntity REAL(4)
c = 2.0 c = 2.0
!$omp parallel do private(a,t,/c/) shared(c) !$omp parallel do private(a,t,/c/) shared(c)
!DEF: /mm/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /mm/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /mm/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(4) !DEF: /mm/OMPACCConstruct1/a (OmpPrivate) HostAssoc REAL(4)
!REF: /mm/b !REF: /mm/b
!REF: /mm/OtherConstruct1/i !REF: /mm/OMPACCConstruct1/i
a = a+b(i) a = a+b(i)
!DEF: /mm/OtherConstruct1/t (OmpPrivate) HostAssoc TYPE(myty) !DEF: /mm/OMPACCConstruct1/t (OmpPrivate) HostAssoc TYPE(myty)
!REF: /md/myty/a !REF: /md/myty/a
!REF: /mm/OtherConstruct1/i !REF: /mm/OMPACCConstruct1/i
t%a = i t%a = i
!DEF: /mm/OtherConstruct1/y (OmpPrivate) HostAssoc REAL(4) !DEF: /mm/OMPACCConstruct1/y (OmpPrivate) HostAssoc REAL(4)
y = 0. y = 0.
!DEF: /mm/OtherConstruct1/x (OmpPrivate) HostAssoc REAL(4) !DEF: /mm/OMPACCConstruct1/x (OmpPrivate) HostAssoc REAL(4)
!REF: /mm/OtherConstruct1/a !REF: /mm/OMPACCConstruct1/a
!REF: /mm/OtherConstruct1/i !REF: /mm/OMPACCConstruct1/i
!REF: /mm/OtherConstruct1/y !REF: /mm/OMPACCConstruct1/y
x = a+i+y x = a+i+y
!REF: /mm/c !REF: /mm/c
c = 3.0 c = 3.0
end do end do
end program end program

flang/test/Semantics/OpenMP/symbol02.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! 1.4.1 Structure of the OpenMP Memory Model ! 1.4.1 Structure of the OpenMP Memory Model
! Test implicit declaration in the OpenMP directive enclosing scope ! Test implicit declaration in the OpenMP directive enclosing scope
! through clause; also test to avoid creating multiple symbols for ! through clause; also test to avoid creating multiple symbols for
! the same variable ! the same variable
!DEF: /MainProgram1/b (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/b (Implicit) ObjectEntity REAL(4)
b = 2 b = 2
!DEF: /MainProgram1/c (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/c (Implicit) ObjectEntity REAL(4)
c = 0 c = 0
!$omp parallel private(a,b) shared(c,d) !$omp parallel private(a,b) shared(c,d)
!DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(4) !DEF: /MainProgram1/OMPACCConstruct1/a (OmpPrivate) HostAssoc REAL(4)
a = 3. a = 3.
!DEF: /MainProgram1/OtherConstruct1/b (OmpPrivate) HostAssoc REAL(4) !DEF: /MainProgram1/OMPACCConstruct1/b (OmpPrivate) HostAssoc REAL(4)
b = 4 b = 4
!REF: /MainProgram1/c !REF: /MainProgram1/c
c = 5 c = 5
!DEF: /MainProgram1/d (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/d (Implicit) ObjectEntity REAL(4)
d = 6 d = 6
!$omp end parallel !$omp end parallel
!DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)
print *, a print *, a
end program end program

flang/test/Semantics/OpenMP/symbol03.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! 1.4.1 Structure of the OpenMP Memory Model ! 1.4.1 Structure of the OpenMP Memory Model
! In the inner OpenMP region, SHARED `a` refers to the `a` in the outer OpenMP ! In the inner OpenMP region, SHARED `a` refers to the `a` in the outer OpenMP
! region; PRIVATE `b` refers to the new `b` in the same OpenMP region ! region; PRIVATE `b` refers to the new `b` in the same OpenMP region
!DEF: /MainProgram1/b (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/b (Implicit) ObjectEntity REAL(4)
b = 2 b = 2
!$omp parallel private(a) shared(b) !$omp parallel private(a) shared(b)
!DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(4) !DEF: /MainProgram1/OMPACCConstruct1/a (OmpPrivate) HostAssoc REAL(4)
a = 3. a = 3.
!REF: /MainProgram1/b !REF: /MainProgram1/b
b = 4 b = 4
!$omp parallel private(b) shared(a) !$omp parallel private(b) shared(a)
!REF: /MainProgram1/OtherConstruct1/a !REF: /MainProgram1/OMPACCConstruct1/a
a = 5. a = 5.
!DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/b (OmpPrivate) HostAssoc REAL(4) !DEF: /MainProgram1/OMPACCConstruct1/OMPACCConstruct1/b (OmpPrivate) HostAssoc REAL(4)
b = 6 b = 6
!$omp end parallel !$omp end parallel
!$omp end parallel !$omp end parallel
!DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)
!REF: /MainProgram1/b !REF: /MainProgram1/b
print *, a, b print *, a, b
end program end program

flang/test/Semantics/OpenMP/symbol04.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! 2.15.3 Data-Sharing Attribute Clauses ! 2.15.3 Data-Sharing Attribute Clauses
! Both PARALLEL and DO (worksharing) directives need to create new scope, ! Both PARALLEL and DO (worksharing) directives need to create new scope,
! so PRIVATE `a` will have new symbol in each region ! so PRIVATE `a` will have new symbol in each region
!DEF: /MainProgram1/a ObjectEntity REAL(8) !DEF: /MainProgram1/a ObjectEntity REAL(8)
real*8 a real*8 a
!REF: /MainProgram1/a !REF: /MainProgram1/a
a = 3.14 a = 3.14
!$omp parallel private(a) !$omp parallel private(a)
!DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(8) !DEF: /MainProgram1/OMPACCConstruct1/a (OmpPrivate) HostAssoc REAL(8)
a = 2. a = 2.
!$omp do private(a) !$omp do private(a)
!DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /MainProgram1/OMPACCConstruct1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(8) !DEF: /MainProgram1/OMPACCConstruct1/OMPACCConstruct1/a (OmpPrivate) HostAssoc REAL(8)
a = 1. a = 1.
end do end do
!$omp end parallel !$omp end parallel
!REF: /MainProgram1/a !REF: /MainProgram1/a
print *, a print *, a
end program end program

flang/test/Semantics/OpenMP/symbol06.f90

! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! 2.15.3 Data-Sharing Attribute Clauses ! 2.15.3 Data-Sharing Attribute Clauses
! A list item that specifies a given variable may not appear in more than ! A list item that specifies a given variable may not appear in more than
! one clause on the same directive, except that a variable may be specified ! one clause on the same directive, except that a variable may be specified
! in both firstprivate and lastprivate clauses. ! in both firstprivate and lastprivate clauses.
!DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4) !DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)
a = 1. a = 1.
!$omp parallel do firstprivate(a) lastprivate(a) !$omp parallel do firstprivate(a) lastprivate(a)
!DEF: /MainProgram1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /MainProgram1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /MainProgram1/OtherConstruct1/a (OmpFirstPrivate, OmpLastPrivate) HostAssoc REAL(4) !DEF: /MainProgram1/OMPACCConstruct1/a (OmpFirstPrivate, OmpLastPrivate) HostAssoc REAL(4)
a = 2. a = 2.
end do end do
end program end program

flang/test/Semantics/OpenMP/symbol07.f90

Show All 15 Linessubroutine function_call_in_region
implicit none implicit none
!DEF: /function_call_in_region/foo (Function) ProcEntity REAL(4) !DEF: /function_call_in_region/foo (Function) ProcEntity REAL(4)
real foo real foo
!DEF: /function_call_in_region/a ObjectEntity REAL(4) !DEF: /function_call_in_region/a ObjectEntity REAL(4)
real :: a = 0. real :: a = 0.
!DEF: /function_call_in_region/b ObjectEntity REAL(4) !DEF: /function_call_in_region/b ObjectEntity REAL(4)
real :: b = 5. real :: b = 5.
!$omp parallel default(none) private(a) shared(b) !$omp parallel default(none) private(a) shared(b)
!DEF: /function_call_in_region/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(4) !DEF: /function_call_in_region/OMPACCConstruct1/a (OmpPrivate) HostAssoc REAL(4)
!REF: /function_call_in_region/foo !REF: /function_call_in_region/foo
!REF: /function_call_in_region/b !REF: /function_call_in_region/b
a = foo(b) a = foo(b)
!$omp end parallel !$omp end parallel
!REF: /function_call_in_region/a !REF: /function_call_in_region/a
!REF: /function_call_in_region/b !REF: /function_call_in_region/b
print *, a, b print *, a, b
end subroutine function_call_in_region end subroutine function_call_in_region
!DEF: /mm MainProgram !DEF: /mm MainProgram
program mm program mm
!REF: /function_call_in_region !REF: /function_call_in_region
call function_call_in_region call function_call_in_region
end program mm end program mm

flang/test/Semantics/OpenMP/symbol08.f90

Show All 25 Lines
!DEF: /test_do/i ObjectEntity INTEGER(4) !DEF: /test_do/i ObjectEntity INTEGER(4)
!DEF: /test_do/j ObjectEntity INTEGER(4) !DEF: /test_do/j ObjectEntity INTEGER(4)
!DEF: /test_do/k ObjectEntity INTEGER(4) !DEF: /test_do/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp parallel !$omp parallel
!REF: /test_do/i !REF: /test_do/i
i = 99 i = 99
!$omp do collapse(2) !$omp do collapse(2)
!DEF: /test_do/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_do/OMPACCConstruct1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,5 do i=1,5
!DEF: /test_do/OtherConstruct1/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_do/OMPACCConstruct1/OMPACCConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=6,10 do j=6,10
!REF: /test_do/a !REF: /test_do/a
a(1,1,1) = 0. a(1,1,1) = 0.
!DEF: /test_do/OtherConstruct1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_do/OMPACCConstruct1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do k=11,15 do k=11,15
!REF: /test_do/a !REF: /test_do/a
!REF: /test_do/OtherConstruct1/k !REF: /test_do/OMPACCConstruct1/k
!REF: /test_do/OtherConstruct1/OtherConstruct1/j !REF: /test_do/OMPACCConstruct1/OMPACCConstruct1/j
!REF: /test_do/OtherConstruct1/OtherConstruct1/i !REF: /test_do/OMPACCConstruct1/OMPACCConstruct1/i
a(k,j,i) = 1. a(k,j,i) = 1.
end do end do
end do end do
end do end do
!$omp end parallel !$omp end parallel
end subroutine test_do end subroutine test_do
! Rule a) ! Rule a)
!DEF: /test_pardo (Subroutine) Subprogram !DEF: /test_pardo (Subroutine) Subprogram
subroutine test_pardo subroutine test_pardo
implicit none implicit none
!DEF: /test_pardo/a ObjectEntity REAL(4) !DEF: /test_pardo/a ObjectEntity REAL(4)
real a(20,20,20) real a(20,20,20)
!DEF: /test_pardo/i ObjectEntity INTEGER(4) !DEF: /test_pardo/i ObjectEntity INTEGER(4)
!DEF: /test_pardo/j ObjectEntity INTEGER(4) !DEF: /test_pardo/j ObjectEntity INTEGER(4)
!DEF: /test_pardo/k ObjectEntity INTEGER(4) !DEF: /test_pardo/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp parallel do collapse(2) private(k) ordered(2) !$omp parallel do collapse(2) private(k) ordered(2)
!DEF: /test_pardo/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_pardo/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,5 do i=1,5
!DEF: /test_pardo/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_pardo/OMPACCConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=6,10 do j=6,10
!REF: /test_pardo/a !REF: /test_pardo/a
a(1,1,1) = 0. a(1,1,1) = 0.
!DEF: /test_pardo/OtherConstruct1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_pardo/OMPACCConstruct1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do k=11,15 do k=11,15
!REF: /test_pardo/a !REF: /test_pardo/a
!REF: /test_pardo/OtherConstruct1/k !REF: /test_pardo/OMPACCConstruct1/k
!REF: /test_pardo/OtherConstruct1/j !REF: /test_pardo/OMPACCConstruct1/j
!REF: /test_pardo/OtherConstruct1/i !REF: /test_pardo/OMPACCConstruct1/i
a(k,j,i) = 1. a(k,j,i) = 1.
end do end do
end do end do
end do end do
end subroutine test_pardo end subroutine test_pardo
! Rule a) ! Rule a)
!DEF: /test_taskloop (Subroutine) Subprogram !DEF: /test_taskloop (Subroutine) Subprogram
subroutine test_taskloop subroutine test_taskloop
implicit none implicit none
!DEF: /test_taskloop/a ObjectEntity REAL(4) !DEF: /test_taskloop/a ObjectEntity REAL(4)
real a(5,5) real a(5,5)
!DEF: /test_taskloop/i ObjectEntity INTEGER(4) !DEF: /test_taskloop/i ObjectEntity INTEGER(4)
!DEF: /test_taskloop/j ObjectEntity INTEGER(4) !DEF: /test_taskloop/j ObjectEntity INTEGER(4)
integer i, j integer i, j
!$omp taskloop private(j) !$omp taskloop private(j)
!DEF: /test_taskloop/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_taskloop/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,5 do i=1,5
!DEF: /test_taskloop/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_taskloop/OMPACCConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
!REF: /test_taskloop/OtherConstruct1/i !REF: /test_taskloop/OMPACCConstruct1/i
do j=1,i do j=1,i
!REF: /test_taskloop/a !REF: /test_taskloop/a
!REF: /test_taskloop/OtherConstruct1/j !REF: /test_taskloop/OMPACCConstruct1/j
!REF: /test_taskloop/OtherConstruct1/i !REF: /test_taskloop/OMPACCConstruct1/i
a(j,i) = 3.14 a(j,i) = 3.14
end do end do
end do end do
!$omp end taskloop !$omp end taskloop
end subroutine test_taskloop end subroutine test_taskloop
! Rule a); OpenMP 4.5 Examples teams.2.f90 ! Rule a); OpenMP 4.5 Examples teams.2.f90
! TODO: reduction; data-mapping attributes ! TODO: reduction; data-mapping attributes
Show All 19 Lines
!DEF: /dotprod/i ObjectEntity INTEGER(4) !DEF: /dotprod/i ObjectEntity INTEGER(4)
!DEF: /dotprod/i0 ObjectEntity INTEGER(4) !DEF: /dotprod/i0 ObjectEntity INTEGER(4)
integer block_size, num_teams, block_threads, i, i0 integer block_size, num_teams, block_threads, i, i0
!REF: /dotprod/sum !REF: /dotprod/sum
sum = 0.0e0 sum = 0.0e0
!$omp target map(to:b,c) map(tofrom:sum) !$omp target map(to:b,c) map(tofrom:sum)
!$omp teams num_teams(num_teams) thread_limit(block_threads) reduction(+:sum) !$omp teams num_teams(num_teams) thread_limit(block_threads) reduction(+:sum)
!$omp distribute !$omp distribute
!DEF: /dotprod/OtherConstruct1/OtherConstruct1/OtherConstruct1/i0 (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /dotprod/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/i0 (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
!REF: /dotprod/n !REF: /dotprod/n
!REF: /dotprod/block_size !REF: /dotprod/block_size
do i0=1,n,block_size do i0=1,n,block_size
!$omp parallel do reduction(+:sum) !$omp parallel do reduction(+:sum)
!DEF: /dotprod/OtherConstruct1/OtherConstruct1/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /dotprod/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
!REF: /dotprod/OtherConstruct1/OtherConstruct1/OtherConstruct1/i0 !REF: /dotprod/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/i0
!DEF: /dotprod/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity !DEF: /dotprod/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /dotprod/block_size !REF: /dotprod/block_size
!REF: /dotprod/n !REF: /dotprod/n
do i=i0,min(i0+block_size, n) do i=i0,min(i0+block_size, n)
!DEF: /dotprod/OtherConstruct1/OtherConstruct1/OtherConstruct1/OtherConstruct1/sum (OmpReduction) HostAssoc REAL(4) !DEF: /dotprod/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/sum (OmpReduction) HostAssoc REAL(4)
!REF: /dotprod/b !REF: /dotprod/b
!REF: /dotprod/OtherConstruct1/OtherConstruct1/OtherConstruct1/OtherConstruct1/i !REF: /dotprod/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/i
!REF: /dotprod/c !REF: /dotprod/c
sum = sum+b(i)*c(i) sum = sum+b(i)*c(i)
end do end do
end do end do
!$omp end teams !$omp end teams
!$omp end target !$omp end target
!REF: /dotprod/sum !REF: /dotprod/sum
print *, sum print *, sum
end subroutine dotprod end subroutine dotprod
! Rule b) ! Rule b)
! TODO: nested constructs (j, k should be private too) ! TODO: nested constructs (j, k should be private too)
!DEF: /test_simd (Subroutine) Subprogram !DEF: /test_simd (Subroutine) Subprogram
subroutine test_simd subroutine test_simd
implicit none implicit none
!DEF: /test_simd/a ObjectEntity REAL(4) !DEF: /test_simd/a ObjectEntity REAL(4)
real a(20,20,20) real a(20,20,20)
!DEF: /test_simd/i ObjectEntity INTEGER(4) !DEF: /test_simd/i ObjectEntity INTEGER(4)
!DEF: /test_simd/j ObjectEntity INTEGER(4) !DEF: /test_simd/j ObjectEntity INTEGER(4)
!DEF: /test_simd/k ObjectEntity INTEGER(4) !DEF: /test_simd/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp parallel do simd !$omp parallel do simd
!DEF: /test_simd/OtherConstruct1/i (OmpLinear, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_simd/OMPACCConstruct1/i (OmpLinear, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,5 do i=1,5
!DEF: /test_simd/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_simd/OMPACCConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=6,10 do j=6,10
!DEF: /test_simd/OtherConstruct1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_simd/OMPACCConstruct1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do k=11,15 do k=11,15
!REF: /test_simd/a !REF: /test_simd/a
!REF: /test_simd/OtherConstruct1/k !REF: /test_simd/OMPACCConstruct1/k
!REF: /test_simd/OtherConstruct1/j !REF: /test_simd/OMPACCConstruct1/j
!REF: /test_simd/OtherConstruct1/i !REF: /test_simd/OMPACCConstruct1/i
a(k,j,i) = 3.14 a(k,j,i) = 3.14
end do end do
end do end do
end do end do
end subroutine test_simd end subroutine test_simd
! Rule c) ! Rule c)
!DEF: /test_simd_multi (Subroutine) Subprogram !DEF: /test_simd_multi (Subroutine) Subprogram
subroutine test_simd_multi subroutine test_simd_multi
implicit none implicit none
!DEF: /test_simd_multi/a ObjectEntity REAL(4) !DEF: /test_simd_multi/a ObjectEntity REAL(4)
real a(20,20,20) real a(20,20,20)
!DEF: /test_simd_multi/i ObjectEntity INTEGER(4) !DEF: /test_simd_multi/i ObjectEntity INTEGER(4)
!DEF: /test_simd_multi/j ObjectEntity INTEGER(4) !DEF: /test_simd_multi/j ObjectEntity INTEGER(4)
!DEF: /test_simd_multi/k ObjectEntity INTEGER(4) !DEF: /test_simd_multi/k ObjectEntity INTEGER(4)
integer i, j, k integer i, j, k
!$omp parallel do simd collapse(3) !$omp parallel do simd collapse(3)
!DEF: /test_simd_multi/OtherConstruct1/i (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_simd_multi/OMPACCConstruct1/i (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,5 do i=1,5
!DEF: /test_simd_multi/OtherConstruct1/j (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_simd_multi/OMPACCConstruct1/j (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do j=6,10 do j=6,10
!DEF: /test_simd_multi/OtherConstruct1/k (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_simd_multi/OMPACCConstruct1/k (OmpLastPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do k=11,15 do k=11,15
!REF: /test_simd_multi/a !REF: /test_simd_multi/a
!REF: /test_simd_multi/OtherConstruct1/k !REF: /test_simd_multi/OMPACCConstruct1/k
!REF: /test_simd_multi/OtherConstruct1/j !REF: /test_simd_multi/OMPACCConstruct1/j
!REF: /test_simd_multi/OtherConstruct1/i !REF: /test_simd_multi/OMPACCConstruct1/i
a(k,j,i) = 3.14 a(k,j,i) = 3.14
end do end do
end do end do
end do end do
end subroutine test_simd_multi end subroutine test_simd_multi
! Rule d) ! Rule d)
!DEF: /test_seq_loop (Subroutine) Subprogram !DEF: /test_seq_loop (Subroutine) Subprogram
subroutine test_seq_loop subroutine test_seq_loop
implicit none implicit none
!DEF: /test_seq_loop/i ObjectEntity INTEGER(4) !DEF: /test_seq_loop/i ObjectEntity INTEGER(4)
!DEF: /test_seq_loop/j ObjectEntity INTEGER(4) !DEF: /test_seq_loop/j ObjectEntity INTEGER(4)
integer i, j integer i, j
!REF: /test_seq_loop/i !REF: /test_seq_loop/i
i = -1 i = -1
!REF: /test_seq_loop/j !REF: /test_seq_loop/j
j = -1 j = -1
!$omp parallel !$omp parallel
!REF: /test_seq_loop/i !REF: /test_seq_loop/i
!REF: /test_seq_loop/j !REF: /test_seq_loop/j
print *, i, j print *, i, j
!$omp parallel !$omp parallel
!REF: /test_seq_loop/i !REF: /test_seq_loop/i
!DEF: /test_seq_loop/OtherConstruct1/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_seq_loop/OMPACCConstruct1/OMPACCConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
print *, i, j print *, i, j
!$omp do !$omp do
!DEF: /test_seq_loop/OtherConstruct1/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /test_seq_loop/OMPACCConstruct1/OMPACCConstruct1/OMPACCConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!REF: /test_seq_loop/OtherConstruct1/OtherConstruct1/j !REF: /test_seq_loop/OMPACCConstruct1/OMPACCConstruct1/j
do j=1,10 do j=1,10
end do end do
end do end do
!REF: /test_seq_loop/i !REF: /test_seq_loop/i
!REF: /test_seq_loop/OtherConstruct1/OtherConstruct1/j !REF: /test_seq_loop/OMPACCConstruct1/OMPACCConstruct1/j
print *, i, j print *, i, j
!$omp end parallel !$omp end parallel
!REF: /test_seq_loop/i !REF: /test_seq_loop/i
!REF: /test_seq_loop/j !REF: /test_seq_loop/j
print *, i, j print *, i, j
!$omp end parallel !$omp end parallel
!REF: /test_seq_loop/i !REF: /test_seq_loop/i
!REF: /test_seq_loop/j !REF: /test_seq_loop/j
print *, i, j print *, i, j
end subroutine test_seq_loop end subroutine test_seq_loop