This is an archive of the discontinued LLVM Phabricator instance.

Differential D127529

[NFC] Move flang OpenMP semantic tests under one single directory
ClosedPublic

Authored by peixin on Jun 10 2022, 12:26 PM.

Details

Reviewers
kiranchandramohan
NimishMishra
sscalpone
jdoerfert
Commits
rGb826d551fcd2: [NFC] Move flang OpenMP semantic tests under one single directory
Summary

To be consistent with OpenACC and will help find the tests in separate
directories for OpenMP and Fortran semantic checks.

Diff Detail

Event Timeline

peixin created this revision.Jun 10 2022, 12:26 PM
Herald added a reviewer: sscalpone. · View Herald TranscriptJun 10 2022, 12:26 PM
Herald added a project: Restricted Project. · View Herald Transcript
Herald added subscribers: jdoerfert, guansong, yaxunl. · View Herald Transcript
peixin requested review of this revision.Jun 10 2022, 12:26 PM
Herald added a reviewer: jdoerfert. · View Herald TranscriptJun 10 2022, 12:26 PM
Herald added a subscriber: sstefan1. · View Herald Transcript
Harbormaster completed remote builds in B169147: Diff 436014.Jun 10 2022, 1:35 PM
kiranchandramohan accepted this revision.Jun 10 2022, 2:02 PM

Nice. LGTM.

If you chose to skip the following it is fine. Otherwise consider these too, but not a strong opinion.
flang/test/Semantics/canondo05.f90:! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
flang/test/Semantics/canondo06.f90:! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
flang/test/Semantics/modfile47.f90:! RUN: %python %S/test_modfile.py %s %flang_fc1 -fopenmp

This revision is now accepted and ready to land.Jun 10 2022, 2:02 PM
peixin updated this revision to Diff 436090.Jun 10 2022, 7:02 PM

If you chose to skip the following it is fine. Otherwise consider these too, but not a strong opinion.
flang/test/Semantics/canondo05.f90:! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
flang/test/Semantics/canondo06.f90:! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
flang/test/Semantics/modfile47.f90:! RUN: %python %S/test_modfile.py %s %flang_fc1 -fopenmp

Thanks for the notice. Fixed.

Harbormaster completed remote builds in B169198: Diff 436090.Jun 10 2022, 7:22 PM
Closed by commit rGb826d551fcd2: [NFC] Move flang OpenMP semantic tests under one single directory (authored by peixin). · Explain WhyJun 10 2022, 7:48 PM
This revision was automatically updated to reflect the committed changes.
peixin added a commit: rGb826d551fcd2: [NFC] Move flang OpenMP semantic tests under one single directory.

Revision Contents

PathSize
flang/
test/
Semantics/
OpenMP/
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
OpenMP/
40 lines
25 lines
35 lines
58 lines
43 lines
52 lines

Diff 436090

flang/test/Semantics/OpenMP/omp-allocate-directive.f90

  • This file was moved from flang/test/Semantics/omp-allocate-directive.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! Check OpenMP Allocate directive ! Check OpenMP Allocate directive
use omp_lib use omp_lib
! 2.11.3 declarative allocate ! 2.11.3 declarative allocate
! 2.11.3 executable allocate ! 2.11.3 executable allocate
real, dimension (:,:), allocatable :: darray real, dimension (:,:), allocatable :: darray
integer :: a, b, x, y, m, n, t, z integer :: a, b, x, y, m, n, t, z
Show All 16 Lines

flang/test/Semantics/OpenMP/omp-allocate01.f90

  • This file was moved from flang/test/Semantics/omp-allocate01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! The allocate directive must appear in the same scope as the declarations of ! The allocate directive must appear in the same scope as the declarations of
! each of its list items and must follow all such declarations. ! each of its list items and must follow all such declarations.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: x integer :: x
Show All 15 Lines

flang/test/Semantics/OpenMP/omp-allocate02.f90

  • This file was moved from flang/test/Semantics/omp-allocate02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! At most one allocator clause can appear on the allocate directive. ! At most one allocator clause can appear on the allocate directive.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: x, y integer :: x, y
integer :: a, b integer :: a, b
Show All 15 Lines

flang/test/Semantics/OpenMP/omp-allocate03.f90

  • This file was moved from flang/test/Semantics/omp-allocate03.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! A variable that is part of another variable (as an array or ! A variable that is part of another variable (as an array or
! structure element) cannot appear in an allocate directive. ! structure element) cannot appear in an allocate directive.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
type my_type type my_type
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-allocate04.f90

  • This file was moved from flang/test/Semantics/omp-allocate04.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! Only the allocator clause is allowed on the allocate directive ! Only the allocator clause is allowed on the allocate directive
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: x, y integer :: x, y
!$omp allocate(x) allocator(omp_default_mem_alloc) !$omp allocate(x) allocator(omp_default_mem_alloc)
!ERROR: PRIVATE clause is not allowed on the ALLOCATE directive !ERROR: PRIVATE clause is not allowed on the ALLOCATE directive
!$omp allocate(y) private(y) !$omp allocate(y) private(y)
end subroutine allocate end subroutine allocate

flang/test/Semantics/OpenMP/omp-allocate05.f90

  • This file was moved from flang/test/Semantics/omp-allocate05.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! allocate directives that appear in a target region must specify an allocator ! allocate directives that appear in a target region must specify an allocator
! clause unless a requires directive with the dynamic_allocators clause is present ! clause unless a requires directive with the dynamic_allocators clause is present
! in the same compilation unit. ! in the same compilation unit.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
Show All 15 Lines

flang/test/Semantics/OpenMP/omp-allocate06.f90

  • This file was moved from flang/test/Semantics/omp-allocate06.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an ! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an
! allocate statement. ! allocate statement.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: a, b, x integer :: a, b, x
Show All 9 Lines

flang/test/Semantics/OpenMP/omp-allocate07.f90

  • This file was moved from flang/test/Semantics/omp-allocate07.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! A type parameter inquiry cannot appear in an allocate directive. ! A type parameter inquiry cannot appear in an allocate directive.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
type my_type(kind_param, len_param) type my_type(kind_param, len_param)
INTEGER, KIND :: kind_param INTEGER, KIND :: kind_param
Show All 26 Lines

flang/test/Semantics/OpenMP/omp-allocate08.f90

  • This file was moved from flang/test/Semantics/omp-allocate08.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! If list items within the ALLOCATE directive have the SAVE attribute, are a common block name, or are declared in the scope of a ! If list items within the ALLOCATE directive have the SAVE attribute, are a common block name, or are declared in the scope of a
! module, then only predefined memory allocator parameters can be used in the allocator clause ! module, then only predefined memory allocator parameters can be used in the allocator clause
module AllocateModule module AllocateModule
INTEGER :: z INTEGER :: z
end module end module
Show All 33 Lines

flang/test/Semantics/OpenMP/omp-atomic.f90

  • This file was moved from flang/test/Semantics/omp-atomic.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
use omp_lib use omp_lib
! Check OpenMP 2.13.6 atomic Construct ! Check OpenMP 2.13.6 atomic Construct
a = 1.0 a = 1.0
!$omp parallel num_threads(4) !$omp parallel num_threads(4)
!$omp atomic seq_cst, read !$omp atomic seq_cst, read
b = a b = a
▲ Show 20 Lines • Show All 49 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-atomic01.f90

  • This file was moved from flang/test/Semantics/omp-atomic01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! Semantic checks for OpenMP 5.0 standard 2.17.7 atomic Construct. ! Semantic checks for OpenMP 5.0 standard 2.17.7 atomic Construct.
use omp_lib use omp_lib
implicit none implicit none
integer :: i, j = 10, k=-100, a integer :: i, j = 10, k=-100, a
! 2.17.7.1 ! 2.17.7.1
! Handled inside parser. ! Handled inside parser.
! OpenMP constructs may not be encountered during execution of an atomic region ! OpenMP constructs may not be encountered during execution of an atomic region
▲ Show 20 Lines • Show All 369 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-atomic02.f90

  • This file was moved from flang/test/Semantics/omp-atomic02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Atomic construct ! OpenMP Atomic construct
! section 2.17.7 ! section 2.17.7
! operator is one of +, *, -, /, .AND., .OR., .EQV., or .NEQV ! operator is one of +, *, -, /, .AND., .OR., .EQV., or .NEQV
program OmpAtomic program OmpAtomic
use omp_lib use omp_lib
CHARACTER c*3, d*3 CHARACTER c*3, d*3
▲ Show 20 Lines • Show All 100 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-atomic03.f90

  • This file was moved from flang/test/Semantics/omp-atomic03.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Atomic construct ! OpenMP Atomic construct
! section 2.17.7 ! section 2.17.7
! Intrinsic procedure name is one of MAX, MIN, IAND, IOR, or IEOR. ! Intrinsic procedure name is one of MAX, MIN, IAND, IOR, or IEOR.
program OmpAtomic program OmpAtomic
use omp_lib use omp_lib
real x real x
▲ Show 20 Lines • Show All 84 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-atomic04.f90

  • This file was moved from flang/test/Semantics/omp-atomic04.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Atomic construct ! OpenMP Atomic construct
! section 2.17.7 ! section 2.17.7
! Update assignment must be 'var = var op expr' or 'var = expr op var' ! Update assignment must be 'var = var op expr' or 'var = expr op var'
program OmpAtomic program OmpAtomic
use omp_lib use omp_lib
real x real x
▲ Show 20 Lines • Show All 159 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-atomic05.f90

  • This file was moved from flang/test/Semantics/omp-atomic05.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! This tests the various semantics related to the clauses of various OpenMP atomic constructs ! This tests the various semantics related to the clauses of various OpenMP atomic constructs
program OmpAtomic program OmpAtomic
use omp_lib use omp_lib
integer :: g, x integer :: g, x
!ERROR: More than one memory order clause not allowed on OpenMP Atomic construct !ERROR: More than one memory order clause not allowed on OpenMP Atomic construct
Show All 17 Lines

flang/test/Semantics/OpenMP/omp-clause-validity01.f90

  • This file was moved from flang/test/Semantics/omp-clause-validity01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
use omp_lib use omp_lib
! Check OpenMP clause validity for the following directives: ! Check OpenMP clause validity for the following directives:
! !
! 2.5 PARALLEL construct ! 2.5 PARALLEL construct
! 2.7.1 Loop construct ! 2.7.1 Loop construct
! ... ! ...
integer :: b = 128 integer :: b = 128
▲ Show 20 Lines • Show All 554 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-combined-constructs.f90

  • This file was moved from flang/test/Semantics/omp-combined-constructs.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
program main program main
implicit none implicit none
integer :: N integer :: N
integer :: i integer :: i
real(8) :: a(256), b(256) real(8) :: a(256), b(256)
N = 256 N = 256
▲ Show 20 Lines • Show All 502 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-copyin01.f90

  • This file was moved from flang/test/Semantics/omp-copyin01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate ! A list item that appears in a copyin clause must be threadprivate
program omp_copyin program omp_copyin
integer :: i integer :: i
integer, save :: k integer, save :: k
Show All 25 Lines

flang/test/Semantics/OpenMP/omp-copyin02.f90

  • This file was moved from flang/test/Semantics/omp-copyin02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A common block name that appears in a copyin clause must be declared to be ! A common block name that appears in a copyin clause must be declared to be
! a common block in the same scoping unit in which the copyin clause appears. ! a common block in the same scoping unit in which the copyin clause appears.
subroutine copyin() subroutine copyin()
integer :: a = 10 integer :: a = 10
common /cmn/ a common /cmn/ a
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-copyin03.f90

  • This file was moved from flang/test/Semantics/omp-copyin03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate. ! A list item that appears in a copyin clause must be threadprivate.
! Named variables appearing in a threadprivate common block may be specified ! Named variables appearing in a threadprivate common block may be specified
! It is not necessary to specify the whole common block. ! It is not necessary to specify the whole common block.
program omp_copyin program omp_copyin
Show All 24 Lines

flang/test/Semantics/OpenMP/omp-copyin04.f90

  • This file was moved from flang/test/Semantics/omp-copyin04.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate ! A list item that appears in a copyin clause must be threadprivate
program omp_copyin program omp_copyin
integer :: i integer :: i
integer, save :: j, k integer, save :: j, k
Show All 17 Lines

flang/test/Semantics/OpenMP/omp-copyin05.f90

  • This file was moved from flang/test/Semantics/omp-copyin05.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A common block name that appears in a copyin clause must be declared to be ! A common block name that appears in a copyin clause must be declared to be
! a common block in the same scoping unit in which the copyin clause appears. ! a common block in the same scoping unit in which the copyin clause appears.
subroutine copyin() subroutine copyin()
call copyin_clause() call copyin_clause()
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-copyprivate01.f90

  • This file was moved from flang/test/Semantics/omp-copyprivate01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.2 copyprivate Clause ! 2.15.4.2 copyprivate Clause
! A list item that appears in a copyprivate clause may not appear in a ! A list item that appears in a copyprivate clause may not appear in a
! private or firstprivate clause on the single construct. ! private or firstprivate clause on the single construct.
program omp_copyprivate program omp_copyprivate
integer :: a(10), b(10), k integer :: a(10), b(10), k
Show All 18 Lines

flang/test/Semantics/OpenMP/omp-copyprivate02.f90

  • This file was moved from flang/test/Semantics/omp-copyprivate02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.2 copyprivate Clause ! 2.15.4.2 copyprivate Clause
! Pointers with the INTENT(IN) attribute may not appear in a copyprivate clause. ! Pointers with the INTENT(IN) attribute may not appear in a copyprivate clause.
subroutine omp_copyprivate(p) subroutine omp_copyprivate(p)
integer :: a(10), b(10), c(10) integer :: a(10), b(10), c(10)
integer, pointer, intent(in) :: p integer, pointer, intent(in) :: p
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-copyprivate03.f90

  • This file was moved from flang/test/Semantics/omp-copyprivate03.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.2 copyprivate Clause ! 2.15.4.2 copyprivate Clause
! All list items that appear in the copyprivate clause must be either ! All list items that appear in the copyprivate clause must be either
! threadprivate or private in the enclosing context. ! threadprivate or private in the enclosing context.
program omp_copyprivate program omp_copyprivate
integer :: a(10), b(10) integer :: a(10), b(10)
integer, save :: k integer, save :: k
Show All 30 Lines

flang/test/Semantics/OpenMP/omp-declarative-directive.f90

  • This file was moved from flang/test/Semantics/omp-declarative-directive.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check OpenMP declarative directives ! Check OpenMP declarative directives
!TODO: all internal errors !TODO: all internal errors
! enable declare-reduction example after name resolution ! enable declare-reduction example after name resolution
! 2.8.2 declare-simd ! 2.8.2 declare-simd
▲ Show 20 Lines • Show All 68 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-declare-target01.f90

  • This file was moved from flang/test/Semantics/omp-declare-target01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.14.7 Declare Target Directive ! 2.14.7 Declare Target Directive
module declare_target01 module declare_target01
use omp_lib use omp_lib
type my_type(kind_param, len_param) type my_type(kind_param, len_param)
integer, KIND :: kind_param integer, KIND :: kind_param
▲ Show 20 Lines • Show All 104 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-declare-target02.f90

  • This file was moved from flang/test/Semantics/omp-declare-target02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.14.7 Declare Target Directive ! 2.14.7 Declare Target Directive
program declare_target02 program declare_target02
integer :: arr1(10), arr1_to(10), arr1_link(10) integer :: arr1(10), arr1_to(10), arr1_link(10)
common /blk1/ a1, a1_to, a1_link common /blk1/ a1, a1_to, a1_link
real, save :: eq_a, eq_b, eq_c, eq_d real, save :: eq_a, eq_b, eq_c, eq_d
▲ Show 20 Lines • Show All 143 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-declare-target03.f90

  • This file was moved from flang/test/Semantics/omp-declare-target03.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.14.7 Declare Target Directive ! 2.14.7 Declare Target Directive
module mod1 module mod1
end end
program main program main
use mod1 use mod1
!ERROR: The module name or main program name cannot be in a DECLARE TARGET directive !ERROR: The module name or main program name cannot be in a DECLARE TARGET directive
!$omp declare target (mod1) !$omp declare target (mod1)
!ERROR: The module name or main program name cannot be in a DECLARE TARGET directive !ERROR: The module name or main program name cannot be in a DECLARE TARGET directive
!$omp declare target (main) !$omp declare target (main)
end end

flang/test/Semantics/OpenMP/omp-declare-target04.f90

  • This file was moved from flang/test/Semantics/omp-declare-target04.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.14.7 Declare Target Directive ! 2.14.7 Declare Target Directive
program main program main
integer, save :: x, y integer, save :: x, y
!$omp threadprivate(x) !$omp threadprivate(x)
!ERROR: A THREADPRIVATE variable cannot appear in a DECLARE TARGET directive !ERROR: A THREADPRIVATE variable cannot appear in a DECLARE TARGET directive
!ERROR: A THREADPRIVATE variable cannot appear in a DECLARE TARGET directive !ERROR: A THREADPRIVATE variable cannot appear in a DECLARE TARGET directive
!$omp declare target (x, y) !$omp declare target (x, y)
!$omp threadprivate(y) !$omp threadprivate(y)
end end

flang/test/Semantics/OpenMP/omp-declare-target05.f90

  • This file was moved from flang/test/Semantics/omp-declare-target05.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.14.7 Declare Target Directive ! 2.14.7 Declare Target Directive
module mod0 module mod0
integer :: mi integer :: mi
contains contains
Show All 35 Lines

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

  • This file was moved from flang/test/Semantics/omp-default.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.1 default Clause ! 2.15.3.1 default Clause
program omp_default program omp_default
integer :: a(10), b(10), c(10),i,k integer :: a(10), b(10), c(10),i,k
!ERROR: At most one DEFAULT clause can appear on the PARALLEL directive !ERROR: At most one DEFAULT clause can appear on the PARALLEL directive
!$omp parallel default(shared), default(private) !$omp parallel default(shared), default(private)
do i = 1, 10 do i = 1, 10
c(i) = a(i) + b(i) + k c(i) = a(i) + b(i) + k
Show All 25 Lines

flang/test/Semantics/OpenMP/omp-default02.f90

  • This file was moved from flang/test/Semantics/omp-default02.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.1 default Clause - a positive test case. ! 2.15.3.1 default Clause - a positive test case.
!DEF: /omp_default MainProgram !DEF: /omp_default MainProgram
program omp_default program omp_default
!DEF: /omp_default/a ObjectEntity INTEGER(4) !DEF: /omp_default/a ObjectEntity INTEGER(4)
!DEF: /omp_default/b ObjectEntity INTEGER(4) !DEF: /omp_default/b ObjectEntity INTEGER(4)
!DEF: /omp_default/c ObjectEntity INTEGER(4) !DEF: /omp_default/c ObjectEntity INTEGER(4)
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-depend01.f90

  • This file was moved from flang/test/Semantics/omp-depend01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.13.9 Depend Clause ! 2.13.9 Depend Clause
! List items used in depend clauses cannot be zero-length array sections. ! List items used in depend clauses cannot be zero-length array sections.
program omp_depend program omp_depend
integer :: a(10) , b(10,10) integer :: a(10) , b(10,10)
a = 10 a = 10
b = 20 b = 20
Show All 19 Lines

flang/test/Semantics/OpenMP/omp-depend02.f90

  • This file was moved from flang/test/Semantics/omp-depend02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.13.9 Depend Clause ! 2.13.9 Depend Clause
! A variable that is part of another variable ! A variable that is part of another variable
! (such as an element of a structure) but is not an array element or ! (such as an element of a structure) but is not an array element or
! an array section cannot appear in a DEPEND clause ! an array section cannot appear in a DEPEND clause
subroutine vec_mult(N) subroutine vec_mult(N)
implicit none implicit none
Show All 40 Lines

flang/test/Semantics/OpenMP/omp-depend03.f90

  • This file was moved from flang/test/Semantics/omp-depend03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.13.9 Depend Clause ! 2.13.9 Depend Clause
! Coarrays are not supported in depend clause ! Coarrays are not supported in depend clause
program omp_depend_coarray program omp_depend_coarray
integer :: a(3)[*], b(3) , k integer :: a(3)[*], b(3) , k
a(:) = this_image() a(:) = this_image()
Show All 15 Lines

flang/test/Semantics/OpenMP/omp-device-constructs.f90

  • This file was moved from flang/test/Semantics/omp-device-constructs.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check OpenMP clause validity for the following directives: ! Check OpenMP clause validity for the following directives:
! 2.10 Device constructs ! 2.10 Device constructs
program main program main
real(8) :: arrayA(256), arrayB(256) real(8) :: arrayA(256), arrayB(256)
integer :: N integer :: N
arrayA = 1.414 arrayA = 1.414
▲ Show 20 Lines • Show All 231 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do-collapse-positivecases.f90

  • This file was moved from flang/test/Semantics/omp-do-collapse-positivecases.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Collapse Clause Positive cases ! 2.7.1 Collapse Clause Positive cases
!DEF: /omp_docollapse MainProgram !DEF: /omp_docollapse MainProgram
program omp_docollapse program omp_docollapse
!DEF: /omp_docollapse/i ObjectEntity INTEGER(4) !DEF: /omp_docollapse/i ObjectEntity INTEGER(4)
!DEF: /omp_docollapse/j ObjectEntity INTEGER(4) !DEF: /omp_docollapse/j ObjectEntity INTEGER(4)
!DEF: /omp_docollapse/k ObjectEntity INTEGER(4) !DEF: /omp_docollapse/k ObjectEntity INTEGER(4)
Show All 27 Lines

flang/test/Semantics/OpenMP/omp-do-collapse.f90

  • This file was moved from flang/test/Semantics/omp-do-collapse.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Collapse Clause ! 2.7.1 Collapse Clause
program omp_doCollapse program omp_doCollapse
integer:: i,j integer:: i,j
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
do i = 1,10 do i = 1,10
do j = 1, 10 do j = 1, 10
Show All 17 Lines

flang/test/Semantics/OpenMP/omp-do-cycle.f90

  • This file was moved from flang/test/Semantics/omp-do-cycle.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Check for cycle statements leaving an OpenMP structured block ! Check for cycle statements leaving an OpenMP structured block
program omp_do program omp_do
integer i, j, k integer i, j, k
!$omp parallel !$omp parallel
foo: do i = 0, 10 foo: do i = 0, 10
Show All 35 Lines

flang/test/Semantics/OpenMP/omp-do-ordered-positivecases.f90

  • This file was moved from flang/test/Semantics/omp-do-ordered-positivecases.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Ordered Clause positive cases. ! 2.7.1 Ordered Clause positive cases.
!DEF: /omp_doordered MainProgram !DEF: /omp_doordered MainProgram
program omp_doordered program omp_doordered
!DEF: /omp_doordered/i ObjectEntity INTEGER(4) !DEF: /omp_doordered/i ObjectEntity INTEGER(4)
!DEF: /omp_doordered/j ObjectEntity INTEGER(4) !DEF: /omp_doordered/j ObjectEntity INTEGER(4)
integer i, j integer i, j
▲ Show 20 Lines • Show All 58 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do-ordered.f90

  • This file was moved from flang/test/Semantics/omp-do-ordered.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Ordered Clause ! 2.7.1 Ordered Clause
program omp_doOrdered program omp_doOrdered
integer:: i,j integer:: i,j
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do ordered(3) !$omp do ordered(3)
do i = 1,10 do i = 1,10
▲ Show 20 Lines • Show All 51 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do-schedule01.f90

  • This file was moved from flang/test/Semantics/omp-do-schedule01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Schedule Clause ! 2.7.1 Schedule Clause
program omp_doSchedule program omp_doSchedule
integer :: i,n integer :: i,n
real :: a(100), y(100), z(100) real :: a(100), y(100), z(100)
!ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression !ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
!$omp do schedule(static, -1) !$omp do schedule(static, -1)
do i=2,n+1 do i=2,n+1
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 omp_doSchedule end program omp_doSchedule

flang/test/Semantics/OpenMP/omp-do-schedule02.f90

  • This file was moved from flang/test/Semantics/omp-do-schedule02.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Schedule Clause ! 2.7.1 Schedule Clause
program omp_doSchedule program omp_doSchedule
integer :: i,n integer :: i,n
real :: a(100), y(100), z(100) real :: a(100), y(100), z(100)
integer,parameter :: b = 10 integer,parameter :: b = 10
integer,parameter :: c = 11 integer,parameter :: c = 11
!ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression !ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
!$omp do schedule(static,b-c) !$omp do schedule(static,b-c)
do i=2,n+1 do i=2,n+1
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 omp_doSchedule end program omp_doSchedule

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

  • This file was moved from flang/test/Semantics/omp-do-schedule03.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 Schedule Clause ! 2.7.1 Schedule Clause
! Test that does not catch non constant integer expressions like xx - xx. ! Test that does not catch non constant integer expressions like xx - xx.
!DEF: /ompdoschedule MainProgram !DEF: /ompdoschedule MainProgram
program ompdoschedule program ompdoschedule
!DEF: /ompdoschedule/a ObjectEntity REAL(4) !DEF: /ompdoschedule/a ObjectEntity REAL(4)
!DEF: /ompdoschedule/y ObjectEntity REAL(4) !DEF: /ompdoschedule/y ObjectEntity REAL(4)
!DEF: /ompdoschedule/z ObjectEntity REAL(4) !DEF: /ompdoschedule/z ObjectEntity REAL(4)
Show All 19 Lines

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

  • This file was moved from flang/test/Semantics/omp-do-schedule04.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 Schedule Clause ! 2.7.1 Schedule Clause
! Test that does not catch non constant integer expressions like xx - yy. ! Test that does not catch non constant integer expressions like xx - yy.
!DEF: /tds (Subroutine) Subprogram !DEF: /tds (Subroutine) Subprogram
subroutine tds subroutine tds
implicit none implicit none
!DEF: /tds/a ObjectEntity REAL(4) !DEF: /tds/a ObjectEntity REAL(4)
Show All 23 Lines

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

  • This file was moved from flang/test/Semantics/omp-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)
Show All 10 Lines

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

  • This file was moved from flang/test/Semantics/omp-do01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -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.
program omp_do program omp_do
integer i, j, k integer i, j, k
!ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause. !ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause.
Show All 9 Lines

flang/test/Semantics/OpenMP/omp-do02.f90

  • This file was moved from flang/test/Semantics/omp-do02.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-do03.f90

  • This file was moved from flang/test/Semantics/omp-do03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_do program omp_do
integer i, j, k integer i, j, k
integer :: a(10), b(10) integer :: a(10), b(10)
Show All 16 Lines

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

  • This file was moved from flang/test/Semantics/omp-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)
Show All 13 Lines

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

  • This file was moved from flang/test/Semantics/omp-do04.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.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 threadprivate directive. ! The loop iteration variable may not appear in a threadprivate directive.
subroutine omp_do subroutine omp_do
integer, save:: i, j, k,n integer, save:: i, j, k,n
!$omp threadprivate(k,j,i) !$omp threadprivate(k,j,i)
▲ Show 20 Lines • Show All 95 Lines • Show Last 20 Lines

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

  • This file was moved from flang/test/Semantics/omp-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)
Show All 27 Lines

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

  • This file was moved from flang/test/Semantics/omp-do05.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -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.
program omp_do program omp_do
integer n integer n
integer i,j,k integer i,j,k
▲ Show 20 Lines • Show All 205 Lines • Show Last 20 Lines

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

  • This file was moved from flang/test/Semantics/omp-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
Show All 14 Lines

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

  • This file was moved from flang/test/Semantics/omp-do06.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -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.
program omp_do program omp_do
integer i, j, k integer i, j, k
Show All 24 Lines

flang/test/Semantics/OpenMP/omp-do07.f90

  • This file was moved from flang/test/Semantics/omp-do07.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-do08.f90

  • This file was moved from flang/test/Semantics/omp-do08.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 129 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do09.f90

  • This file was moved from flang/test/Semantics/omp-do09.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The do-loop cannot be a DO WHILE or a DO loop without loop control. ! The do-loop cannot be a DO WHILE or a DO loop without loop control.
program omp_do program omp_do
integer :: i = 0,k integer :: i = 0,k
!$omp do !$omp do
!ERROR: The DO loop cannot be a DO WHILE with DO directive. !ERROR: The DO loop cannot be a DO WHILE with DO directive.
Show All 17 Lines

flang/test/Semantics/OpenMP/omp-do10.f90

  • This file was moved from flang/test/Semantics/omp-do10.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The DO loop iteration variable must be of type integer. ! The DO loop iteration variable must be of type integer.
program omp_do program omp_do
real i, j, k real i, j, k
!$omp do !$omp do
!ERROR: The DO loop iteration variable must be of the type integer. !ERROR: The DO loop iteration variable must be of the type integer.
Show All 30 Lines

flang/test/Semantics/OpenMP/omp-do11.f90

  • This file was moved from flang/test/Semantics/omp-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)
Show All 27 Lines

flang/test/Semantics/OpenMP/omp-do12.f90

  • This file was moved from flang/test/Semantics/omp-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/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
▲ Show 20 Lines • Show All 87 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do13.f90

  • This file was moved from flang/test/Semantics/omp-do13.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 176 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do14.f90

  • This file was moved from flang/test/Semantics/omp-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/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /omp_cycle/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=0,10 do i=0,10
▲ Show 20 Lines • Show All 82 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do15.f90

  • This file was moved from flang/test/Semantics/omp-do15.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 85 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do16.f90

  • This file was moved from flang/test/Semantics/omp-do16.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 68 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do17.f90

  • This file was moved from flang/test/Semantics/omp-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)
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-do18.f90

  • This file was added.
! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
! CHECK-NOT: do *[1-9]
program P
implicit none
integer OMP_GET_NUM_THREADS, OMP_GET_THREAD_NUM
integer NUMTHRDS, TID
integer N, CSZ, CNUM, I
parameter (N=100)
parameter (CSZ=10)
real A(N), B(N), C(N)
do 10 I = 1, N
A(I) = I * 1.0
10 continue
B = A
CNUM = CSZ
!$OMP PARALLEL SHARED(A,B,C,NUMTHRDS,CNUM) PRIVATE(I,TID)
TID = OMP_GET_THREAD_NUM()
if (TID .EQ. 0) then
NUMTHRDS = OMP_GET_NUM_THREADS()
print *, "Number of threads =", NUMTHRDS
end if
print *, "Thread", TID, " is starting..."
!$OMP DO SCHEDULE(DYNAMIC,CNUM)
do 20 I = 1, N
C(I) = A(I) + B(I)
write (*,100) TID, I, C(I)
20 continue
!$OMP END DO NOWAIT
print *, "Thread", TID, " done."
!$OMP END PARALLEL
100 format(" Thread", I2, ": C(", I3, ")=", F8.2)
end program P

flang/test/Semantics/OpenMP/omp-do19.f90

  • This file was added.
! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
! CHECK-NOT: do *[1-9]
! CHECK: omp simd
program P
implicit none
integer N, I
parameter (N=100)
real A(N), B(N), C(N)
!$OMP SIMD
do 10 I = 1, N
A(I) = I * 1.0
10 continue
B = A
!$OMP SIMD
do 20 I = 1, N
C(I) = A(I) + B(I)
write (*,100) I, C(I)
20 continue
100 format(" C(", I3, ")=", F8.2)
end program P

flang/test/Semantics/OpenMP/omp-firstprivate01.f90

  • This file was moved from flang/test/Semantics/omp-firstprivate01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.4 firstprivate Clause ! 2.15.3.4 firstprivate Clause
! Variables that appear in a firstprivate clause on a distribute or ! Variables that appear in a firstprivate clause on a distribute or
! worksharing constructs must not appear in the private or ! worksharing constructs must not appear in the private or
! reduction clause in a teams or parallel constructs in the outer context ! reduction clause in a teams or parallel constructs in the outer context
program omp_firstprivate program omp_firstprivate
integer :: i, a(10), b(10), c(10) integer :: i, a(10), b(10), c(10)
▲ Show 20 Lines • Show All 80 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-flush01.f90

  • This file was moved from flang/test/Semantics/omp-flush01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! 2.17.8 Flush construct [OpenMP 5.0] ! 2.17.8 Flush construct [OpenMP 5.0]
! memory-order-clause -> ! memory-order-clause ->
! acq_rel ! acq_rel
! release ! release
! acquire ! acquire
use omp_lib use omp_lib
implicit none implicit none
Show All 27 Lines

flang/test/Semantics/OpenMP/omp-flush02.f90

  • This file was moved from flang/test/Semantics/omp-flush02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! Check OpenMP 5.0 - 2.17.8 flush Construct ! Check OpenMP 5.0 - 2.17.8 flush Construct
! Restriction - ! Restriction -
! If memory-order-clause is release, acquire, or acq_rel, list items must not be specified on the flush directive. ! If memory-order-clause is release, acquire, or acq_rel, list items must not be specified on the flush directive.
use omp_lib use omp_lib
implicit none implicit none
▲ Show 20 Lines • Show All 77 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-invalid-branch.f90

  • This file was moved from flang/test/Semantics/omp-invalid-branch.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-lastprivate01.f90

  • This file was moved from flang/test/Semantics/omp-lastprivate01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.5 lastprivate Clause ! 2.15.3.5 lastprivate Clause
! A variable that appears in a lastprivate clause must be definable. ! A variable that appears in a lastprivate clause must be definable.
module protected_var module protected_var
integer, protected :: p integer, protected :: p
end module protected_var end module protected_var
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-lastprivate02.f90

  • This file was moved from flang/test/Semantics/omp-lastprivate02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.5 lastprivate Clause ! 2.15.3.5 lastprivate Clause
! A list item that is private within a parallel region, or that appears in ! A list item that is private within a parallel region, or that appears in
! reduction clause of a parallel construct, must not appear in a ! reduction clause of a parallel construct, must not appear in a
! lastprivate clause on a worksharing construct if any of the corresponding ! lastprivate clause on a worksharing construct if any of the corresponding
! worksharing regions ever binds to any of the corresponding parallel regions. ! worksharing regions ever binds to any of the corresponding parallel regions.
program omp_lastprivate program omp_lastprivate
Show All 26 Lines

flang/test/Semantics/OpenMP/omp-linear-iter.f90

  • This file was moved from flang/test/Semantics/omp-linear-iter.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the ordered construct ! Various checks with the ordered construct
SUBROUTINE LINEAR_GOOD(N) SUBROUTINE LINEAR_GOOD(N)
INTEGER N, i, j, a, b(10) INTEGER N, i, j, a, b(10)
!$omp target !$omp target
!$omp teams !$omp teams
!$omp distribute parallel do simd linear(i) !$omp distribute parallel do simd linear(i)
▲ Show 20 Lines • Show All 76 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-loop-association.f90

  • This file was moved from flang/test/Semantics/omp-loop-association.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check the association between OpenMPLoopConstruct and DoConstruct ! Check the association between OpenMPLoopConstruct and DoConstruct
integer :: b = 128 integer :: b = 128
integer :: c = 32 integer :: c = 32
integer, parameter :: num = 16 integer, parameter :: num = 16
N = 1024 N = 1024
▲ Show 20 Lines • Show All 117 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-loop-simd01.f90

  • This file was moved from flang/test/Semantics/omp-loop-simd01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.3 Loop simd Construct ! 2.8.3 Loop simd Construct
! Semantic error for correct test case. ! Semantic error for correct test case.
program omp_loop_simd program omp_loop_simd
integer i, j, k, l integer i, j, k, l
k = 0; k = 0;
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-modfile-threadprivate.f90

  • This file was added.
! RUN: %python %S/../test_modfile.py %s %flang_fc1 -fopenmp
! Check correct modfile generation for OpenMP threadprivate directive.
module m
implicit none
type :: my_type(kind_param, len_param)
integer, KIND :: kind_param
integer, LEN :: len_param
integer :: t_i
integer :: t_arr(10)
end type
type(my_type(kind_param=2, len_param=4)) :: t
real, dimension(3) :: thrtest
real :: x
common /blk/ x
!$omp threadprivate(thrtest, t, /blk/)
end
!Expect: m.mod
!module m
!type::my_type(kind_param,len_param)
!integer(4),kind::kind_param
!integer(4),len::len_param
!integer(4)::t_i
!integer(4)::t_arr(1_8:10_8)
!end type
!type(my_type(kind_param=2_4,len_param=4_4))::t
!!$omp threadprivate(t)
!real(4)::thrtest(1_8:3_8)
!!$omp threadprivate(thrtest)
!real(4)::x
!!$omp threadprivate(x)
!common/blk/x
!end

flang/test/Semantics/OpenMP/omp-nested-barrier.f90

  • This file was moved from flang/test/Semantics/omp-nested-barrier.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the nesting of BARRIER construct ! Various checks with the nesting of BARRIER construct
program omp_nest_barrier program omp_nest_barrier
integer i, k, j integer i, k, j
k = 0; k = 0;
!$omp do !$omp do
▲ Show 20 Lines • Show All 157 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-cancel.f90

  • This file was moved from flang/test/Semantics/omp-nested-cancel.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.18.1 Cancel Construct ! 2.18.1 Cancel Construct
program main program main
integer :: i, N = 10 integer :: i, N = 10
real :: a real :: a
▲ Show 20 Lines • Show All 240 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-cancellation-point.f90

  • This file was moved from flang/test/Semantics/omp-nested-cancellation-point.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.18.2 Cancellation Point Construct ! 2.18.2 Cancellation Point Construct
program main program main
integer :: i, N = 10 integer :: i, N = 10
real :: a real :: a
▲ Show 20 Lines • Show All 240 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-distribute.f90

  • This file was moved from flang/test/Semantics/omp-nested-distribute.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check OpenMP clause validity for the following directives: ! Check OpenMP clause validity for the following directives:
! 2.10 Device constructs ! 2.10 Device constructs
program main program main
real(8) :: arrayA(256), arrayB(256) real(8) :: arrayA(256), arrayB(256)
integer :: N integer :: N
arrayA = 1.414 arrayA = 1.414
▲ Show 20 Lines • Show All 95 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-master.f90

  • This file was moved from flang/test/Semantics/omp-nested-master.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the nesting of MASTER construct ! Various checks with the nesting of MASTER construct
program omp_nest_master program omp_nest_master
integer i, k, j integer i, k, j
k = 0; k = 0;
!$omp do !$omp do
▲ Show 20 Lines • Show All 144 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-simd.f90

  • This file was moved from flang/test/Semantics/omp-nested-simd.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the nesting of SIMD construct ! Various checks with the nesting of SIMD construct
SUBROUTINE NESTED_GOOD(N) SUBROUTINE NESTED_GOOD(N)
INTEGER N, I, J, K, A(10), B(10) INTEGER N, I, J, K, A(10), B(10)
!$OMP SIMD !$OMP SIMD
DO I = 1,N DO I = 1,N
!$OMP ATOMIC !$OMP ATOMIC
▲ Show 20 Lines • Show All 182 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-target.f90

  • This file was moved from flang/test/Semantics/omp-nested-target.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.12.5 Target Construct ! 2.12.5 Target Construct
program main program main
integer :: i, j, N = 10 integer :: i, j, N = 10
real :: a, arrayA(512), arrayB(512), ai(10) real :: a, arrayA(512), arrayB(512), ai(10)
▲ Show 20 Lines • Show All 44 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested-teams.f90

  • This file was moved from flang/test/Semantics/omp-nested-teams.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.7 Teams Construct ! 2.7 Teams Construct
program main program main
integer :: i, j, N = 10 integer :: i, j, N = 10
real :: a, b, c real :: a, b, c
▲ Show 20 Lines • Show All 103 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-nested01.f90

  • This file was moved from flang/test/Semantics/omp-nested01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check OpenMP 2.17 Nesting of Regions ! Check OpenMP 2.17 Nesting of Regions
N = 1024 N = 1024
!$omp do !$omp do
do i = 1, N do i = 1, N
!ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
!$omp do !$omp do
Show All 31 Lines

flang/test/Semantics/OpenMP/omp-no-dowhile-in-parallel.f90

  • This file was moved from flang/test/Semantics/omp-no-dowhile-in-parallel.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
subroutine bug48308(x,i) subroutine bug48308(x,i)
real :: x(:) real :: x(:)
integer :: i integer :: i
!$omp parallel firstprivate(i) !$omp parallel firstprivate(i)
do while (i>0) do while (i>0)
x(i) = i x(i) = i
i = i - 1 i = i - 1
Show All 19 Lines

flang/test/Semantics/OpenMP/omp-nontemporal.f90

  • This file was moved from flang/test/Semantics/omp-nontemporal.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! REQUIRES: shell ! REQUIRES: shell
! Check OpenMP clause validity for NONTEMPORAL clause ! Check OpenMP clause validity for NONTEMPORAL clause
program omp_simd program omp_simd
integer i integer i
integer, allocatable :: a(:) integer, allocatable :: a(:)
allocate(a(10)) allocate(a(10))
▲ Show 20 Lines • Show All 86 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-ordered-simd.f90

  • This file was moved from flang/test/Semantics/omp-ordered-simd.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the ordered construct ! Various checks with the ordered construct
SUBROUTINE WORK(I) SUBROUTINE WORK(I)
INTEGER I INTEGER I
END SUBROUTINE WORK END SUBROUTINE WORK
SUBROUTINE ORDERED_GOOD(N) SUBROUTINE ORDERED_GOOD(N)
▲ Show 20 Lines • Show All 139 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-ordered01.f90

  • This file was moved from flang/test/Semantics/omp-ordered01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.19.9 Ordered Construct ! 2.19.9 Ordered Construct
program main program main
integer :: i, N = 10 integer :: i, N = 10
real :: a, arrayA(10), arrayB(10), arrayC(10) real :: a, arrayA(10), arrayB(10), arrayC(10)
real, external :: foo, bar, baz real, external :: foo, bar, baz
▲ Show 20 Lines • Show All 71 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-ordered02.f90

  • This file was moved from flang/test/Semantics/omp-ordered02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.19.9 Ordered Construct ! 2.19.9 Ordered Construct
subroutine sub1() subroutine sub1()
integer :: i, j, N = 10 integer :: i, j, N = 10
real :: arrayA(10), arrayB(10) real :: arrayA(10), arrayB(10)
real, external :: foo, bar real, external :: foo, bar
▲ Show 20 Lines • Show All 137 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-ordered03.f90

  • This file was moved from flang/test/Semantics/omp-ordered03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.19.9 Ordered Construct ! 2.19.9 Ordered Construct
subroutine sub1() subroutine sub1()
integer :: i, j, N = 10 integer :: i, j, N = 10
real :: arrayA(10), arrayB(10) real :: arrayA(10), arrayB(10)
real, external :: foo, bar real, external :: foo, bar
▲ Show 20 Lines • Show All 113 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-parallel-private01.f90

  • This file was moved from flang/test/Semantics/omp-parallel-private01.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 11 Lines

flang/test/Semantics/OpenMP/omp-parallel-private02.f90

  • This file was moved from flang/test/Semantics/omp-parallel-private02.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
integer :: array(10) integer :: array(10)
do i = 1, 10 do i = 1, 10
Show All 11 Lines

flang/test/Semantics/OpenMP/omp-parallel-private03.f90

  • This file was moved from flang/test/Semantics/omp-parallel-private03.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/OpenMP/omp-parallel-private04.f90

  • This file was moved from flang/test/Semantics/omp-parallel-private04.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/OpenMP/omp-parallel-sections01.f90

  • This file was moved from flang/test/Semantics/omp-parallel-sections01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP version 5.0.0 ! OpenMP version 5.0.0
! 2.13.3 parallel sections Construct ! 2.13.3 parallel sections Construct
! The restrictions for the parallel construct and the sections construct apply ! The restrictions for the parallel construct and the sections construct apply
program OmpConstructSections01 program OmpConstructSections01
use omp_lib use omp_lib
integer :: section_count = 0 integer :: section_count = 0
integer, parameter :: NT = 4 integer, parameter :: NT = 4
integer :: i, array(10) integer :: i, array(10)
▲ Show 20 Lines • Show All 144 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-parallel-shared01.f90

  • This file was moved from flang/test/Semantics/omp-parallel-shared01.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 11 Lines

flang/test/Semantics/OpenMP/omp-parallel-shared02.f90

  • This file was moved from flang/test/Semantics/omp-parallel-shared02.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
integer :: array(10) integer :: array(10)
do i = 1, 10 do i = 1, 10
Show All 11 Lines

flang/test/Semantics/OpenMP/omp-parallel-shared03.f90

  • This file was moved from flang/test/Semantics/omp-parallel-shared03.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/OpenMP/omp-parallel-shared04.f90

  • This file was moved from flang/test/Semantics/omp-parallel-shared04.f90.
!RUN: %python %S/test_errors.py %s %flang -fopenmp !RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/OpenMP/omp-parallel01.f90

  • This file was moved from flang/test/Semantics/omp-parallel01.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-parallel02.f90

  • This file was moved from flang/test/Semantics/omp-parallel02.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-private-is-pointer-check.f90

  • This file was moved from flang/test/Semantics/omp-private-is-pointer-check.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-private01.f90

  • This file was moved from flang/test/Semantics/omp-private01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 private Clause ! 2.15.3.3 private Clause
! Pointers with the INTENT(IN) attribute may not appear in a private clause. ! Pointers with the INTENT(IN) attribute may not appear in a private clause.
subroutine omp_private(p) subroutine omp_private(p)
integer :: a(10), b(10), c(10) integer :: a(10), b(10), c(10)
integer, pointer, intent(in) :: p integer, pointer, intent(in) :: p
Show All 11 Lines

flang/test/Semantics/OpenMP/omp-private02.f90

  • This file was moved from flang/test/Semantics/omp-private02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 private Clause ! 2.15.3.3 private Clause
! Variables that appear in namelist statements may not appear in a private clause. ! Variables that appear in namelist statements may not appear in a private clause.
module test module test
integer :: a, b, c integer :: a, b, c
namelist /nlist1/ a, b namelist /nlist1/ a, b
end module end module
Show All 37 Lines

flang/test/Semantics/OpenMP/omp-reduction01.f90

  • This file was moved from flang/test/Semantics/omp-reduction01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
!ERROR: Invalid reduction operator in REDUCTION clause. !ERROR: Invalid reduction operator in REDUCTION clause.
!$omp parallel do reduction(**:k) !$omp parallel do reduction(**:k)
do i = 1, 10 do i = 1, 10
k = k ** 1 k = k ** 1
end do end do
!$omp end parallel do !$omp end parallel do
end program omp_reduction end program omp_reduction

flang/test/Semantics/OpenMP/omp-reduction02.f90

  • This file was moved from flang/test/Semantics/omp-reduction02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
integer :: j = 10 integer :: j = 10
Show All 28 Lines

flang/test/Semantics/OpenMP/omp-reduction03.f90

  • This file was moved from flang/test/Semantics/omp-reduction03.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
subroutine omp_target(p) subroutine omp_target(p)
integer, pointer, intent(in) :: p integer, pointer, intent(in) :: p
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
Show All 9 Lines

flang/test/Semantics/OpenMP/omp-reduction04.f90

  • This file was moved from flang/test/Semantics/omp-reduction04.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_Reduction program omp_Reduction
integer :: i integer :: i
integer, parameter :: k = 10 integer, parameter :: k = 10
common /c/ a, b common /c/ a, b
!ERROR: Variable 'k' on the REDUCTION clause is not definable !ERROR: Variable 'k' on the REDUCTION clause is not definable
Show All 13 Lines

flang/test/Semantics/OpenMP/omp-reduction05.f90

  • This file was moved from flang/test/Semantics/omp-reduction05.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
integer :: a(10),b(10,10,10) integer :: a(10),b(10,10,10)
Show All 29 Lines

flang/test/Semantics/OpenMP/omp-reduction06.f90

  • This file was moved from flang/test/Semantics/omp-reduction06.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
integer :: a(10), b(10,10,10) integer :: a(10), b(10,10,10)
Show All 22 Lines

flang/test/Semantics/OpenMP/omp-reduction07.f90

  • This file was moved from flang/test/Semantics/omp-reduction07.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i,j,l integer :: i,j,l
integer :: k = 10 integer :: k = 10
!$omp parallel private(k) !$omp parallel private(k)
!ERROR: REDUCTION variable 'k' is PRIVATE in outer context must be shared in the parallel regions to which any of the worksharing regions arising from the worksharing construct bind. !ERROR: REDUCTION variable 'k' is PRIVATE in outer context must be shared in the parallel regions to which any of the worksharing regions arising from the worksharing construct bind.
▲ Show 20 Lines • Show All 117 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-reduction08.f90

  • This file was moved from flang/test/Semantics/omp-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)
▲ Show 20 Lines • Show All 54 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-reduction09.f90

  • This file was moved from flang/test/Semantics/omp-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
▲ Show 20 Lines • Show All 77 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-reduction10.f90

  • This file was moved from flang/test/Semantics/omp-reduction10.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
!ERROR: Invalid reduction identifier in REDUCTION clause. !ERROR: Invalid reduction identifier in REDUCTION clause.
!$omp parallel do reduction(foo:k) !$omp parallel do reduction(foo:k)
do i = 1, 10 do i = 1, 10
k = foo(k) k = foo(k)
end do end do
!$omp end parallel do !$omp end parallel do
end program omp_reduction end program omp_reduction

flang/test/Semantics/OpenMP/omp-resolve01.f90

  • This file was moved from flang/test/Semantics/omp-resolve01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! 2.4 An array section designates a subset of the elements in an array. Although ! 2.4 An array section designates a subset of the elements in an array. Although
! Substring shares similar syntax but cannot be treated as valid array section. ! Substring shares similar syntax but cannot be treated as valid array section.
character*8 c, b character*8 c, b
character a character a
b = "HIFROMPGI" b = "HIFROMPGI"
c = b(2:7) c = b(2:7)
!ERROR: Substrings are not allowed on OpenMP directives or clauses !ERROR: Substrings are not allowed on OpenMP directives or clauses
!$omp parallel private(c(1:3)) !$omp parallel private(c(1:3))
a = c(1:1) a = c(1:1)
!$omp end parallel !$omp end parallel
end end

flang/test/Semantics/OpenMP/omp-resolve02.f90

  • This file was moved from flang/test/Semantics/omp-resolve02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Test the effect to name resolution from illegal clause ! Test the effect to name resolution from illegal clause
!a = 1.0 !a = 1.0
b = 2 b = 2
!$omp parallel private(a) shared(b) !$omp parallel private(a) shared(b)
a = 3. a = 3.
b = 4 b = 4
Show All 9 Lines

flang/test/Semantics/OpenMP/omp-resolve03.f90

  • This file was moved from flang/test/Semantics/omp-resolve03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! 2.15.3 Although variables in common blocks can be accessed by use association ! 2.15.3 Although variables in common blocks can be accessed by use association
! or host association, common block names cannot. As a result, a common block ! or host association, common block names cannot. As a result, a common block
! name specified in a data-sharing attribute clause must be declared to be a ! name specified in a data-sharing attribute clause must be declared to be a
! common block in the same scoping unit in which the data-sharing attribute ! common block in the same scoping unit in which the data-sharing attribute
! clause appears. ! clause appears.
common /c/ a, b common /c/ a, b
Show All 13 Lines

flang/test/Semantics/OpenMP/omp-resolve04.f90

  • This file was moved from flang/test/Semantics/omp-resolve04.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -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.
common /c/ a, b common /c/ a, b
integer a(3), b integer a(3), b
Show All 10 Lines

flang/test/Semantics/OpenMP/omp-resolve05.f90

  • This file was moved from flang/test/Semantics/omp-resolve05.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! 2.15.3 Data-Sharing Attribute Clauses ! 2.15.3 Data-Sharing Attribute Clauses
! 2.15.3.1 default Clause ! 2.15.3.1 default Clause
subroutine default_none() subroutine default_none()
integer a(3) integer a(3)
A = 1 A = 1
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-resolve06.f90

  • This file was moved from flang/test/Semantics/omp-resolve06.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
use omp_lib use omp_lib
!2.11.4 Allocate Clause !2.11.4 Allocate Clause
!For any list item that is specified in the allocate !For any list item that is specified in the allocate
!clause on a directive, a data-sharing attribute clause !clause on a directive, a data-sharing attribute clause
!that may create a private copy of that list item must be !that may create a private copy of that list item must be
!specified on the same directive. !specified on the same directive.
integer :: N = 2 integer :: N = 2
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-sections01.f90

  • This file was moved from flang/test/Semantics/omp-sections01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.2 sections Construct ! 2.7.2 sections Construct
! Only a single nowait clause can appear on a sections directive. ! Only a single nowait clause can appear on a sections directive.
program omp_sections program omp_sections
!$omp sections !$omp sections
!$omp section !$omp section
print *, "omp section" print *, "omp section"
!ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive !ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive
!$omp end sections nowait nowait !$omp end sections nowait nowait
end program omp_sections end program omp_sections

flang/test/Semantics/OpenMP/omp-sections02.f90

  • This file was moved from flang/test/Semantics/omp-sections02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP version 5.0.0 ! OpenMP version 5.0.0
! 2.8.1 sections construct ! 2.8.1 sections construct
! The code enclosed in a sections construct must be a structured block. ! The code enclosed in a sections construct must be a structured block.
program OmpConstructSections01 program OmpConstructSections01
use omp_lib use omp_lib
integer :: section_count = 0 integer :: section_count = 0
integer, parameter :: NT = 4 integer, parameter :: NT = 4
print *, 'section_count', section_count print *, 'section_count', section_count
▲ Show 20 Lines • Show All 128 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-sections03.f90

  • This file was moved from flang/test/Semantics/omp-sections03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
!XFAIL: * !XFAIL: *
! OpenMP version 5.0.0 ! OpenMP version 5.0.0
! 2.8.1 sections construct ! 2.8.1 sections construct
! Orphaned section directives are prohibited. That is, the section directives must appear within the sections construct and must not be encountered elsewhere in the sections region ! Orphaned section directives are prohibited. That is, the section directives must appear within the sections construct and must not be encountered elsewhere in the sections region
!TODO: Error in parsing. Make parser errors more informative. Until then, the test is XFAIL !TODO: Error in parsing. Make parser errors more informative. Until then, the test is XFAIL
program OmpOrphanedSections program OmpOrphanedSections
use omp_lib use omp_lib
Show All 18 Lines

flang/test/Semantics/OpenMP/omp-simd-aligned.f90

  • This file was moved from flang/test/Semantics/omp-simd-aligned.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.1 simd Construct ! 2.8.1 simd Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_simd program omp_simd
integer i, j, k integer i, j, k
integer, allocatable :: a(:), b(:) integer, allocatable :: a(:), b(:)
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-simd-nontemporal.f90

  • This file was moved from flang/test/Semantics/omp-simd-nontemporal.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.1 simd Construct ! 2.8.1 simd Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_simd program omp_simd
integer i, j, k integer i, j, k
integer, allocatable :: a(:), b(:) integer, allocatable :: a(:), b(:)
▲ Show 20 Lines • Show All 54 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-simd01.f90

  • This file was moved from flang/test/Semantics/omp-simd01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.9.3.1 simd Construct ! 2.9.3.1 simd Construct
! - A program that branches into or out of a simd region is non-conforming. ! - A program that branches into or out of a simd region is non-conforming.
! - The associated loops must be structured blocks ! - The associated loops must be structured blocks
program omp_simd program omp_simd
integer i, j integer i, j
Show All 31 Lines

flang/test/Semantics/OpenMP/omp-simd02.f90

  • This file was moved from flang/test/Semantics/omp-simd02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.1 simd Construct ! 2.8.1 simd Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_simd program omp_simd
integer i, j, k integer i, j, k
integer, allocatable :: a(:) integer, allocatable :: a(:)
Show All 12 Lines

flang/test/Semantics/OpenMP/omp-simd03.f90

  • This file was moved from flang/test/Semantics/omp-simd03.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-single01.f90

  • This file was moved from flang/test/Semantics/omp-single01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.3 single Construct ! 2.7.3 single Construct
! Symbol present on multiple clauses ! Symbol present on multiple clauses
program omp_single program omp_single
integer i integer i
i = 10 i = 10
!$omp single private(i) !$omp single private(i)
print *, "omp single", i print *, "omp single", i
!ERROR: COPYPRIVATE variable 'i' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct !ERROR: COPYPRIVATE variable 'i' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct
!$omp end single copyprivate(i) !$omp end single copyprivate(i)
end program omp_single end program omp_single

flang/test/Semantics/OpenMP/omp-single02.f90

  • This file was moved from flang/test/Semantics/omp-single02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.3 single Construct ! 2.7.3 single Construct
! Copyprivate variable is not thread private or private in outer context ! Copyprivate variable is not thread private or private in outer context
program omp_single program omp_single
integer i integer i
i = 10 i = 10
!$omp parallel !$omp parallel
!$omp single !$omp single
print *, "omp single", i print *, "omp single", i
!ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context !ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context
!$omp end single copyprivate(i) !$omp end single copyprivate(i)
!$omp end parallel !$omp end parallel
end program omp_single end program omp_single

flang/test/Semantics/OpenMP/omp-symbol01.f90

  • This file was moved from flang/test/Semantics/omp-symbol01.f90.
! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! Test clauses that accept list. ! Test clauses that accept list.
! 2.1 Directive Format ! 2.1 Directive Format
! A list consists of a comma-separated collection of one or more list items. ! A list consists of a comma-separated collection of one or more list items.
! A list item is a variable, array section or common block name (enclosed in ! A list item is a variable, array section or common block name (enclosed in
! slashes). ! slashes).
!DEF: /md Module !DEF: /md Module
▲ Show 20 Lines • Show All 59 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-symbol02.f90

  • This file was moved from flang/test/Semantics/omp-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)
Show All 16 Lines

flang/test/Semantics/OpenMP/omp-symbol03.f90

  • This file was moved from flang/test/Semantics/omp-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)
Show All 15 Lines

flang/test/Semantics/OpenMP/omp-symbol04.f90

  • This file was moved from flang/test/Semantics/omp-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
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-symbol05.f90

  • This file was moved from flang/test/Semantics/omp-symbol05.f90.
! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! 2.15.2 threadprivate Directive ! 2.15.2 threadprivate Directive
! The threadprivate directive specifies that variables are replicated, ! The threadprivate directive specifies that variables are replicated,
! with each thread having its own copy. When threadprivate variables are ! with each thread having its own copy. When threadprivate variables are
! referenced in the OpenMP region, we know they are already private to ! referenced in the OpenMP region, we know they are already private to
! their threads, so no new symbol needs to be created. ! their threads, so no new symbol needs to be created.
!DEF: /mm Module !DEF: /mm Module
Show All 31 Lines

flang/test/Semantics/OpenMP/omp-symbol06.f90

  • This file was moved from flang/test/Semantics/omp-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/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) !DEF: /MainProgram1/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10 do i=1,10
!DEF: /MainProgram1/Block1/a (OmpFirstPrivate, OmpLastPrivate) HostAssoc REAL(4) !DEF: /MainProgram1/Block1/a (OmpFirstPrivate, OmpLastPrivate) HostAssoc REAL(4)
a = 2. a = 2.
end do end do
end program end program

flang/test/Semantics/OpenMP/omp-symbol07.f90

  • This file was moved from flang/test/Semantics/omp-symbol07.f90.
! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! Generic tests ! Generic tests
! 1. subroutine or function calls should not be fixed for DSA or DMA ! 1. subroutine or function calls should not be fixed for DSA or DMA
!DEF: /foo (Function) Subprogram REAL(4) !DEF: /foo (Function) Subprogram REAL(4)
!DEF: /foo/rnum ObjectEntity REAL(4) !DEF: /foo/rnum ObjectEntity REAL(4)
function foo(rnum) function foo(rnum)
!REF: /foo/rnum !REF: /foo/rnum
Show All 28 Lines

flang/test/Semantics/OpenMP/omp-symbol08.f90

  • This file was moved from flang/test/Semantics/omp-symbol08.f90.
! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
! 2.15.1.1 Predetermined rules for associated do-loops index variable ! 2.15.1.1 Predetermined rules for associated do-loops index variable
! a) The loop iteration variable(s) in the associated do-loop(s) of a do, ! a) The loop iteration variable(s) in the associated do-loop(s) of a do,
! parallel do, taskloop, or distribute construct is (are) private. ! parallel do, taskloop, or distribute construct is (are) private.
! b) The loop iteration variable in the associated do-loop of a simd construct ! b) The loop iteration variable in the associated do-loop of a simd construct
! with just one associated do-loop is linear with a linear-step that is the ! with just one associated do-loop is linear with a linear-step that is the
! increment of the associated do-loop. ! increment of the associated do-loop.
! c) The loop iteration variables in the associated do-loops of a simd ! c) The loop iteration variables in the associated do-loops of a simd
▲ Show 20 Lines • Show All 242 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-sync-critical01.f90

  • This file was moved from flang/test/Semantics/omp-sync-critical01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.17.1 critical construct ! 2.17.1 critical construct
! CRITICAL start and end CRITICAL directive names mismatch ! CRITICAL start and end CRITICAL directive names mismatch
integer function timer_tick_sec() integer function timer_tick_sec()
implicit none implicit none
integer t integer t
Show All 32 Lines

flang/test/Semantics/OpenMP/omp-sync-critical02.f90

  • This file was moved from flang/test/Semantics/omp-sync-critical02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.17.1 critical construct ! 2.17.1 critical construct
! If the hint clause is specified, the critical construct must have a name. ! If the hint clause is specified, the critical construct must have a name.
program sample program sample
use omp_lib use omp_lib
integer i, j integer i, j
!ERROR: Hint clause other than omp_sync_hint_none cannot be specified for an unnamed CRITICAL directive !ERROR: Hint clause other than omp_sync_hint_none cannot be specified for an unnamed CRITICAL directive
▲ Show 20 Lines • Show All 44 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-task01.f90

  • This file was moved from flang/test/Semantics/omp-task01.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-taskgroup01.f90

  • This file was moved from flang/test/Semantics/omp-taskgroup01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
use omp_lib use omp_lib
implicit none implicit none
integer :: xyz, abc integer :: xyz, abc
real :: reduction_var real :: reduction_var
!$omp parallel num_threads(4) !$omp parallel num_threads(4)
!$omp single !$omp single
print *, "The" print *, "The"
Show All 31 Lines !$omp task
print *, "The " print *, "The "
!$omp taskgroup task_reduction(.or. : reduction_var) task_reduction(.and. : reduction_var) !$omp taskgroup task_reduction(.or. : reduction_var) task_reduction(.and. : reduction_var)
print *, "almighty sun" print *, "almighty sun"
!$omp end taskgroup !$omp end taskgroup
!$omp end taskgroup !$omp end taskgroup
!$omp end task !$omp end task
!$omp end parallel !$omp end parallel
end program end program
No newline at end of file No newline at end of file

flang/test/Semantics/OpenMP/omp-taskloop-simd01.f90

  • This file was moved from flang/test/Semantics/omp-taskloop-simd01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.10.3 taskloop simd Construct ! 2.10.3 taskloop simd Construct
program omp_taskloop_simd program omp_taskloop_simd
integer i , j , k integer i , j , k
!$omp taskloop simd reduction(+:k) !$omp taskloop simd reduction(+:k)
do i=1,10000 do i=1,10000
do j=1,i do j=1,i
k = k + 1 k = k + 1
end do end do
end do end do
!$omp end taskloop simd !$omp end taskloop simd
end program omp_taskloop_simd end program omp_taskloop_simd

flang/test/Semantics/OpenMP/omp-taskloop01.f90

  • This file was moved from flang/test/Semantics/omp-taskloop01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.9.2 taskloop Construct ! 2.9.2 taskloop Construct
subroutine parallel_work subroutine parallel_work
integer i integer i
integer j integer j
!$omp taskgroup !$omp taskgroup
Show All 14 Lines

flang/test/Semantics/OpenMP/omp-taskloop02.f90

  • This file was moved from flang/test/Semantics/omp-taskloop02.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-taskloop03.f90

  • This file was moved from flang/test/Semantics/omp-taskloop03.f90.
The contents of this file were not changed.

flang/test/Semantics/OpenMP/omp-threadprivate01.f90

  • This file was moved from flang/test/Semantics/omp-threadprivate01.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.21.2 Threadprivate Directive ! 2.21.2 Threadprivate Directive
module thread_private01 module thread_private01
use omp_lib use omp_lib
type my_type(kind_param, len_param) type my_type(kind_param, len_param)
integer, KIND :: kind_param integer, KIND :: kind_param
▲ Show 20 Lines • Show All 42 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-threadprivate02.f90

  • This file was moved from flang/test/Semantics/omp-threadprivate02.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.21.2 Threadprivate Directive ! 2.21.2 Threadprivate Directive
program threadprivate02 program threadprivate02
integer :: arr1(10) integer :: arr1(10)
common /blk1/ a1 common /blk1/ a1
real, save :: eq_a, eq_b, eq_c, eq_d real, save :: eq_a, eq_b, eq_c, eq_d
▲ Show 20 Lines • Show All 72 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-threadprivate03.f90

  • This file was moved from flang/test/Semantics/omp-threadprivate03.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.21.2 Threadprivate Directive ! 2.21.2 Threadprivate Directive
module mod1 module mod1
end end
program main program main
Show All 18 Lines

flang/test/Semantics/OpenMP/omp-threadprivate04.f90

  • This file was moved from flang/test/Semantics/omp-threadprivate04.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.21.2 Threadprivate Directive ! 2.21.2 Threadprivate Directive
program main program main
integer :: i, N = 10 integer :: i, N = 10
integer, save :: x integer, save :: x
common /blk/ y common /blk/ y
Show All 39 Lines

flang/test/Semantics/OpenMP/omp-threadprivate05.f90

  • This file was moved from flang/test/Semantics/omp-threadprivate05.f90.
! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 5.1 ! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives: ! Check OpenMP construct validity for the following directives:
! 2.21.2 Threadprivate Directive ! 2.21.2 Threadprivate Directive
module mod0 module mod0
integer :: mi integer :: mi
contains contains
Show All 35 Lines

flang/test/Semantics/OpenMP/omp-workshare01.f90

  • This file was moved from flang/test/Semantics/omp-workshare01.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! Invalid do construct inside !$omp workshare ! Invalid do construct inside !$omp workshare
subroutine workshare(aa, bb, cc, dd, ee, ff, n) subroutine workshare(aa, bb, cc, dd, ee, ff, n)
integer n, i integer n, i
real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n) real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n)
Show All 24 Lines

flang/test/Semantics/OpenMP/omp-workshare02.f90

  • This file was moved from flang/test/Semantics/omp-workshare02.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! The !omp workshare construct must not contain any user defined ! The !omp workshare construct must not contain any user defined
! function calls unless the function is ELEMENTAL. ! function calls unless the function is ELEMENTAL.
module my_mod module my_mod
contains contains
integer function my_func() integer function my_func()
▲ Show 20 Lines • Show All 56 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-workshare03.f90

  • This file was moved from flang/test/Semantics/omp-workshare03.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! All array assignments, scalar assignments, and masked array assignments ! All array assignments, scalar assignments, and masked array assignments
! must be intrinsic assignments. ! must be intrinsic assignments.
module defined_assign module defined_assign
interface assignment(=) interface assignment(=)
module procedure work_assign module procedure work_assign
Show All 23 Lines

flang/test/Semantics/OpenMP/omp-workshare04.f90

  • This file was moved from flang/test/Semantics/omp-workshare04.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! Checks for OpenMP Workshare construct ! Checks for OpenMP Workshare construct
subroutine omp_workshare(aa, bb, cc, dd, ee, ff, n) subroutine omp_workshare(aa, bb, cc, dd, ee, ff, n)
integer i, j, n, a(10), b(10) integer i, j, n, a(10), b(10)
integer, pointer :: p integer, pointer :: p
integer, target :: t integer, target :: t
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/OpenMP/omp-workshare05.f90

  • This file was moved from flang/test/Semantics/omp-workshare05.f90.
! RUN: %python %S/test_errors.py %s %flang -fopenmp ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! Checks for OpenMP Parallel constructs enclosed in Workshare constructs ! Checks for OpenMP Parallel constructs enclosed in Workshare constructs
module workshare_mod module workshare_mod
interface assignment(=) interface assignment(=)
module procedure work_assign module procedure work_assign
end interface end interface
▲ Show 20 Lines • Show All 52 Lines • Show Last 20 Lines

flang/test/Semantics/canondo05.f90

! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s ! Check that if there is a label or a name on an label-do-stmt,
! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s ! then it is not lost when rewriting it to an non-label-do-stmt.
! CHECK-NOT: do *[1-9]
program P ! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>&1 | FileCheck %s
implicit none
integer OMP_GET_NUM_THREADS, OMP_GET_THREAD_NUM
integer NUMTHRDS, TID
integer N, CSZ, CNUM, I
parameter (N=100)
parameter (CSZ=10)
real A(N), B(N), C(N)
do 10 I = 1, N ! CHECK: end do
A(I) = I * 1.0 ! CHECK: 2 do
10 continue ! CHECK: mainloop: do
! CHECK: end do mainloop
B = A
CNUM = CSZ ! CHECK-NOT: do [1-9]
!$OMP PARALLEL SHARED(A,B,C,NUMTHRDS,CNUM) PRIVATE(I,TID) subroutine foo()
TID = OMP_GET_THREAD_NUM() do 1 i=1,2
if (TID .EQ. 0) then goto 2
NUMTHRDS = OMP_GET_NUM_THREADS() 1 continue
print *, "Number of threads =", NUMTHRDS 2 do 3 i=1,2
3 continue
mainloop : do 4 i=1,100
do j=1,20
if (j==i) then
! cycle mainloop: TODO: fix invalid complaints that mainloop construct
! is not in scope.
end if end if
print *, "Thread", TID, " is starting..." end do
4 end do mainloop
!$OMP DO SCHEDULE(DYNAMIC,CNUM) end subroutine
do 20 I = 1, N
C(I) = A(I) + B(I)
write (*,100) TID, I, C(I)
20 continue
!$OMP END DO NOWAIT
print *, "Thread", TID, " done."
!$OMP END PARALLEL
100 format(" Thread", I2, ": C(", I3, ")=", F8.2)
end program P

flang/test/Semantics/canondo06.f90

! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s ! Error test -- DO loop uses obsolete loop termination statement (warning)
! CHECK-NOT: do *[1-9] ! See R1131 and C1133
! CHECK: omp simd
program P
implicit none
integer N, I
parameter (N=100)
real A(N), B(N), C(N)
!$OMP SIMD
do 10 I = 1, N
A(I) = I * 1.0
10 continue
B = A
!$OMP SIMD
do 20 I = 1, N
C(I) = A(I) + B(I)
write (*,100) I, C(I)
20 continue
100 format(" C(", I3, ")=", F8.2) ! By default, this is not an error and label do are rewritten to non-label do.
end program P ! A warning is generated with -pedantic
! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s
! CHECK: end do
! The following CHECK-NOT actively uses the fact that the leading zero of labels
! would be removed in the unparse but not the line linked to warnings. We do
! not want to see label do in the unparse only.
! CHECK-NOT: do [1-9]
! RUN: FileCheck --check-prefix=ERR --input-file=%t.stderr %s
! ERR: A DO loop should terminate with an END DO or CONTINUE
subroutine foo10()
real :: a(10, 10), b(10, 10) = 1.0
do 01 k=1,4
where (a<k)
a = a + b
b = a - b
elsewhere
a = a*2
01 end where
end subroutine

flang/test/Semantics/canondo18.f90

  • This file was deleted.
! Error test -- DO loop uses obsolete loop termination statement (warning)
! See R1131 and C1133
! By default, this is not an error and label do are rewritten to non-label do.
! A warning is generated with -pedantic
! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s
! CHECK: end do
! The following CHECK-NOT actively uses the fact that the leading zero of labels
! would be removed in the unparse but not the line linked to warnings. We do
! not want to see label do in the unparse only.
! CHECK-NOT: do [1-9]
! RUN: FileCheck --check-prefix=ERR --input-file=%t.stderr %s
! ERR: A DO loop should terminate with an END DO or CONTINUE
subroutine foo10()
real :: a(10, 10), b(10, 10) = 1.0
do 01 k=1,4
where (a<k)
a = a + b
b = a - b
elsewhere
a = a*2
01 end where
end subroutine

flang/test/Semantics/canondo19.f90

  • This file was deleted.
! Check that if there is a label or a name on an label-do-stmt,
! then it is not lost when rewriting it to an non-label-do-stmt.
! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>&1 | FileCheck %s
! CHECK: end do
! CHECK: 2 do
! CHECK: mainloop: do
! CHECK: end do mainloop
! CHECK-NOT: do [1-9]
subroutine foo()
do 1 i=1,2
goto 2
1 continue
2 do 3 i=1,2
3 continue
mainloop : do 4 i=1,100
do j=1,20
if (j==i) then
! cycle mainloop: TODO: fix invalid complaints that mainloop construct
! is not in scope.
end if
end do
4 end do mainloop
end subroutine

flang/test/Semantics/modfile47.f90

! RUN: %python %S/test_modfile.py %s %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %flang_fc1
! Check correct modfile generation for OpenMP threadprivate directive. subroutine foo
end
module m subroutine iso_fortran_env
implicit none end
type :: my_type(kind_param, len_param) subroutine bad1
integer, KIND :: kind_param !ERROR: 'foo' is not a module
integer, LEN :: len_param use foo
integer :: t_i end
integer :: t_arr(10) subroutine ok1
end type use, intrinsic :: iso_fortran_env
type(my_type(kind_param=2, len_param=4)) :: t end
real, dimension(3) :: thrtest subroutine ok2
real :: x use iso_fortran_env
common /blk/ x end
subroutine bad2
!$omp threadprivate(thrtest, t, /blk/) !ERROR: 'iso_fortran_env' is not a module
end use, non_intrinsic :: iso_fortran_env
end
!Expect: m.mod
!module m
!type::my_type(kind_param,len_param)
!integer(4),kind::kind_param
!integer(4),len::len_param
!integer(4)::t_i
!integer(4)::t_arr(1_8:10_8)
!end type
!type(my_type(kind_param=2_4,len_param=4_4))::t
!!$omp threadprivate(t)
!real(4)::thrtest(1_8:3_8)
!!$omp threadprivate(thrtest)
!real(4)::x
!!$omp threadprivate(x)
!common/blk/x
!end

flang/test/Semantics/modfile49.f90

  • This file was deleted.
! RUN: %python %S/test_errors.py %s %flang_fc1
subroutine foo
end
subroutine iso_fortran_env
end
subroutine bad1
!ERROR: 'foo' is not a module
use foo
end
subroutine ok1
use, intrinsic :: iso_fortran_env
end
subroutine ok2
use iso_fortran_env
end
subroutine bad2
!ERROR: 'iso_fortran_env' is not a module
use, non_intrinsic :: iso_fortran_env
end

flang/test/Semantics/omp-allocate-directive.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate-directive.f90.

flang/test/Semantics/omp-allocate01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate01.f90.

flang/test/Semantics/omp-allocate02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate02.f90.

flang/test/Semantics/omp-allocate03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate03.f90.

flang/test/Semantics/omp-allocate04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate04.f90.

flang/test/Semantics/omp-allocate05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate05.f90.

flang/test/Semantics/omp-allocate06.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate06.f90.

flang/test/Semantics/omp-allocate07.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate07.f90.

flang/test/Semantics/omp-allocate08.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-allocate08.f90.

flang/test/Semantics/omp-atomic.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-atomic.f90.

flang/test/Semantics/omp-atomic01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-atomic01.f90.

flang/test/Semantics/omp-atomic02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-atomic02.f90.

flang/test/Semantics/omp-atomic03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-atomic03.f90.

flang/test/Semantics/omp-atomic04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-atomic04.f90.

flang/test/Semantics/omp-atomic05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-atomic05.f90.

flang/test/Semantics/omp-clause-validity01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-clause-validity01.f90.

flang/test/Semantics/omp-combined-constructs.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-combined-constructs.f90.

flang/test/Semantics/omp-copyin01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyin01.f90.

flang/test/Semantics/omp-copyin02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyin02.f90.

flang/test/Semantics/omp-copyin03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyin03.f90.

flang/test/Semantics/omp-copyin04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyin04.f90.

flang/test/Semantics/omp-copyin05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyin05.f90.

flang/test/Semantics/omp-copyprivate01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyprivate01.f90.

flang/test/Semantics/omp-copyprivate02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyprivate02.f90.

flang/test/Semantics/omp-copyprivate03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-copyprivate03.f90.

flang/test/Semantics/omp-declarative-directive.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-declarative-directive.f90.

flang/test/Semantics/omp-declare-target01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-declare-target01.f90.

flang/test/Semantics/omp-declare-target02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-declare-target02.f90.

flang/test/Semantics/omp-declare-target03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-declare-target03.f90.

flang/test/Semantics/omp-declare-target04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-declare-target04.f90.

flang/test/Semantics/omp-declare-target05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-declare-target05.f90.

flang/test/Semantics/omp-default.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-default.f90.

flang/test/Semantics/omp-default02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-default02.f90.

flang/test/Semantics/omp-depend01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-depend01.f90.

flang/test/Semantics/omp-depend02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-depend02.f90.

flang/test/Semantics/omp-depend03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-depend03.f90.

flang/test/Semantics/omp-device-constructs.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-device-constructs.f90.

flang/test/Semantics/omp-do-collapse-positivecases.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-collapse-positivecases.f90.

flang/test/Semantics/omp-do-collapse.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-collapse.f90.

flang/test/Semantics/omp-do-cycle.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-cycle.f90.

flang/test/Semantics/omp-do-ordered-positivecases.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-ordered-positivecases.f90.

flang/test/Semantics/omp-do-ordered.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-ordered.f90.

flang/test/Semantics/omp-do-schedule01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-schedule01.f90.

flang/test/Semantics/omp-do-schedule02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-schedule02.f90.

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

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-schedule03.f90.

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

  • This file was moved to flang/test/Semantics/OpenMP/omp-do-schedule04.f90.

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

  • This file was moved to flang/test/Semantics/OpenMP/omp-do01-positivecase.f90.

flang/test/Semantics/omp-do01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do01.f90.

flang/test/Semantics/omp-do02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do02.f90.

flang/test/Semantics/omp-do03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do03.f90.

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

  • This file was moved to flang/test/Semantics/OpenMP/omp-do04-positivecase.f90.

flang/test/Semantics/omp-do04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do04.f90.

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

  • This file was moved to flang/test/Semantics/OpenMP/omp-do05-positivecase.f90.

flang/test/Semantics/omp-do05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do05.f90.

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

  • This file was moved to flang/test/Semantics/OpenMP/omp-do06-positivecases.f90.

flang/test/Semantics/omp-do06.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do06.f90.

flang/test/Semantics/omp-do07.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do07.f90.

flang/test/Semantics/omp-do08.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do08.f90.

flang/test/Semantics/omp-do09.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do09.f90.

flang/test/Semantics/omp-do10.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do10.f90.

flang/test/Semantics/omp-do11.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do11.f90.

flang/test/Semantics/omp-do12.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do12.f90.

flang/test/Semantics/omp-do13.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do13.f90.

flang/test/Semantics/omp-do14.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do14.f90.

flang/test/Semantics/omp-do15.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do15.f90.

flang/test/Semantics/omp-do16.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do16.f90.

flang/test/Semantics/omp-do17.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-do17.f90.

flang/test/Semantics/omp-firstprivate01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-firstprivate01.f90.

flang/test/Semantics/omp-flush01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-flush01.f90.

flang/test/Semantics/omp-flush02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-flush02.f90.

flang/test/Semantics/omp-invalid-branch.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-invalid-branch.f90.

flang/test/Semantics/omp-lastprivate01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-lastprivate01.f90.

flang/test/Semantics/omp-lastprivate02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-lastprivate02.f90.

flang/test/Semantics/omp-linear-iter.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-linear-iter.f90.

flang/test/Semantics/omp-loop-association.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-loop-association.f90.

flang/test/Semantics/omp-loop-simd01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-loop-simd01.f90.

flang/test/Semantics/omp-nested-barrier.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-barrier.f90.

flang/test/Semantics/omp-nested-cancel.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-cancel.f90.

flang/test/Semantics/omp-nested-cancellation-point.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-cancellation-point.f90.

flang/test/Semantics/omp-nested-distribute.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-distribute.f90.

flang/test/Semantics/omp-nested-master.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-master.f90.

flang/test/Semantics/omp-nested-simd.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-simd.f90.

flang/test/Semantics/omp-nested-target.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-target.f90.

flang/test/Semantics/omp-nested-teams.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested-teams.f90.

flang/test/Semantics/omp-nested01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nested01.f90.

flang/test/Semantics/omp-no-dowhile-in-parallel.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-no-dowhile-in-parallel.f90.

flang/test/Semantics/omp-nontemporal.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-nontemporal.f90.

flang/test/Semantics/omp-ordered-simd.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-ordered-simd.f90.

flang/test/Semantics/omp-ordered01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-ordered01.f90.

flang/test/Semantics/omp-ordered02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-ordered02.f90.

flang/test/Semantics/omp-ordered03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-ordered03.f90.

flang/test/Semantics/omp-parallel-private01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-private01.f90.

flang/test/Semantics/omp-parallel-private02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-private02.f90.

flang/test/Semantics/omp-parallel-private03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-private03.f90.

flang/test/Semantics/omp-parallel-private04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-private04.f90.

flang/test/Semantics/omp-parallel-sections01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-sections01.f90.

flang/test/Semantics/omp-parallel-shared01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-shared01.f90.

flang/test/Semantics/omp-parallel-shared02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-shared02.f90.

flang/test/Semantics/omp-parallel-shared03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-shared03.f90.

flang/test/Semantics/omp-parallel-shared04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel-shared04.f90.

flang/test/Semantics/omp-parallel01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel01.f90.

flang/test/Semantics/omp-parallel02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-parallel02.f90.

flang/test/Semantics/omp-private-is-pointer-check.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-private-is-pointer-check.f90.

flang/test/Semantics/omp-private01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-private01.f90.

flang/test/Semantics/omp-private02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-private02.f90.

flang/test/Semantics/omp-reduction01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction01.f90.

flang/test/Semantics/omp-reduction02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction02.f90.

flang/test/Semantics/omp-reduction03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction03.f90.

flang/test/Semantics/omp-reduction04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction04.f90.

flang/test/Semantics/omp-reduction05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction05.f90.

flang/test/Semantics/omp-reduction06.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction06.f90.

flang/test/Semantics/omp-reduction07.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction07.f90.

flang/test/Semantics/omp-reduction08.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction08.f90.

flang/test/Semantics/omp-reduction09.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction09.f90.

flang/test/Semantics/omp-reduction10.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-reduction10.f90.

flang/test/Semantics/omp-resolve01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-resolve01.f90.

flang/test/Semantics/omp-resolve02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-resolve02.f90.

flang/test/Semantics/omp-resolve03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-resolve03.f90.

flang/test/Semantics/omp-resolve04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-resolve04.f90.

flang/test/Semantics/omp-resolve05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-resolve05.f90.

flang/test/Semantics/omp-resolve06.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-resolve06.f90.

flang/test/Semantics/omp-sections01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-sections01.f90.

flang/test/Semantics/omp-sections02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-sections02.f90.

flang/test/Semantics/omp-sections03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-sections03.f90.

flang/test/Semantics/omp-simd-aligned.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-simd-aligned.f90.

flang/test/Semantics/omp-simd-nontemporal.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-simd-nontemporal.f90.

flang/test/Semantics/omp-simd01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-simd01.f90.

flang/test/Semantics/omp-simd02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-simd02.f90.

flang/test/Semantics/omp-simd03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-simd03.f90.

flang/test/Semantics/omp-single01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-single01.f90.

flang/test/Semantics/omp-single02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-single02.f90.

flang/test/Semantics/omp-symbol01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol01.f90.

flang/test/Semantics/omp-symbol02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol02.f90.

flang/test/Semantics/omp-symbol03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol03.f90.

flang/test/Semantics/omp-symbol04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol04.f90.

flang/test/Semantics/omp-symbol05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol05.f90.

flang/test/Semantics/omp-symbol06.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol06.f90.

flang/test/Semantics/omp-symbol07.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol07.f90.

flang/test/Semantics/omp-symbol08.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-symbol08.f90.

flang/test/Semantics/omp-sync-critical01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-sync-critical01.f90.

flang/test/Semantics/omp-sync-critical02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-sync-critical02.f90.

flang/test/Semantics/omp-task01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-task01.f90.

flang/test/Semantics/omp-taskgroup01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-taskgroup01.f90.

flang/test/Semantics/omp-taskloop-simd01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-taskloop-simd01.f90.

flang/test/Semantics/omp-taskloop01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-taskloop01.f90.

flang/test/Semantics/omp-taskloop02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-taskloop02.f90.

flang/test/Semantics/omp-taskloop03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-taskloop03.f90.

flang/test/Semantics/omp-threadprivate01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-threadprivate01.f90.

flang/test/Semantics/omp-threadprivate02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-threadprivate02.f90.

flang/test/Semantics/omp-threadprivate03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-threadprivate03.f90.

flang/test/Semantics/omp-threadprivate04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-threadprivate04.f90.

flang/test/Semantics/omp-threadprivate05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-threadprivate05.f90.

flang/test/Semantics/omp-workshare01.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-workshare01.f90.

flang/test/Semantics/omp-workshare02.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-workshare02.f90.

flang/test/Semantics/omp-workshare03.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-workshare03.f90.

flang/test/Semantics/omp-workshare04.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-workshare04.f90.

flang/test/Semantics/omp-workshare05.f90

  • This file was moved to flang/test/Semantics/OpenMP/omp-workshare05.f90.
flang/test/Semantics/modfile47.f90