r212453 - [OPENMP] Added initial support for 'omp parallel for'.
Michael Wong
fraggamuffin at gmail.com
Mon Jul 21 11:14:45 PDT 2014
I have reviewed this while reviewing:
r212516 - [OPENMP] Parsing and sema analysis for 'omp parallel sections'
directive.
All the code is a similar pattern and looks good.
On Mon, Jul 7, 2014 at 9:01 AM, Alexey Bataev <a.bataev at hotmail.com> wrote:
> Author: abataev
> Date: Mon Jul 7 08:01:15 2014
> New Revision: 212453
>
> URL: http://llvm.org/viewvc/llvm-project?rev=212453&view=rev
> Log:
> [OPENMP] Added initial support for 'omp parallel for'.
>
> Added:
> cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp (with
> props)
> cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp (with
> props)
> cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_misc_messages.c (with props)
> cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp (with
> props)
> cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp (with props)
> cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp (with
> props)
> cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp (with
> props)
> cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp (with props)
> Modified:
> cfe/trunk/include/clang-c/Index.h
> cfe/trunk/include/clang/AST/DataRecursiveASTVisitor.h
> cfe/trunk/include/clang/AST/RecursiveASTVisitor.h
> cfe/trunk/include/clang/AST/StmtOpenMP.h
> cfe/trunk/include/clang/Basic/DiagnosticSemaKinds.td
> cfe/trunk/include/clang/Basic/OpenMPKinds.def
> cfe/trunk/include/clang/Basic/OpenMPKinds.h
> cfe/trunk/include/clang/Basic/StmtNodes.td
> cfe/trunk/include/clang/Sema/Sema.h
> cfe/trunk/include/clang/Serialization/ASTBitCodes.h
> cfe/trunk/lib/AST/Stmt.cpp
> cfe/trunk/lib/AST/StmtPrinter.cpp
> cfe/trunk/lib/AST/StmtProfile.cpp
> cfe/trunk/lib/Basic/OpenMPKinds.cpp
> cfe/trunk/lib/CodeGen/CGStmt.cpp
> cfe/trunk/lib/CodeGen/CGStmtOpenMP.cpp
> cfe/trunk/lib/CodeGen/CodeGenFunction.h
> cfe/trunk/lib/Parse/ParseOpenMP.cpp
> cfe/trunk/lib/Sema/SemaOpenMP.cpp
> cfe/trunk/lib/Sema/TreeTransform.h
> cfe/trunk/lib/Serialization/ASTReaderStmt.cpp
> cfe/trunk/lib/Serialization/ASTWriterStmt.cpp
> cfe/trunk/lib/StaticAnalyzer/Core/ExprEngine.cpp
> cfe/trunk/test/OpenMP/for_firstprivate_messages.cpp
> cfe/trunk/test/OpenMP/for_loop_messages.cpp
> cfe/trunk/test/OpenMP/nesting_of_regions.cpp
> cfe/trunk/test/OpenMP/simd_lastprivate_messages.cpp
> cfe/trunk/test/OpenMP/simd_loop_messages.cpp
> cfe/trunk/tools/libclang/CIndex.cpp
> cfe/trunk/tools/libclang/CXCursor.cpp
>
> Modified: cfe/trunk/include/clang-c/Index.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang-c/Index.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang-c/Index.h (original)
> +++ cfe/trunk/include/clang-c/Index.h Mon Jul 7 08:01:15 2014
> @@ -2155,9 +2155,13 @@ enum CXCursorKind {
> */
> CXCursor_OMPSingleDirective = 237,
>
> + /** \brief OpenMP parallel for directive.
> + */
> + CXCursor_OMPParallelForDirective = 238,
> +
> /** \brief Windows Structured Exception Handling's leave statement.
> */
> - CXCursor_SEHLeaveStmt = 238,
> + CXCursor_SEHLeaveStmt = 239,
>
> CXCursor_LastStmt = CXCursor_SEHLeaveStmt,
>
>
> Modified: cfe/trunk/include/clang/AST/DataRecursiveASTVisitor.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/AST/DataRecursiveASTVisitor.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/AST/DataRecursiveASTVisitor.h (original)
> +++ cfe/trunk/include/clang/AST/DataRecursiveASTVisitor.h Mon Jul 7
> 08:01:15 2014
> @@ -2311,6 +2311,11 @@ DEF_TRAVERSE_STMT(OMPSingleDirective, {
> return false;
> })
>
> +DEF_TRAVERSE_STMT(OMPParallelForDirective, {
> + if (!TraverseOMPExecutableDirective(S))
> + return false;
> +})
> +
> // OpenMP clauses.
> template <typename Derived>
> bool RecursiveASTVisitor<Derived>::TraverseOMPClause(OMPClause *C) {
>
> Modified: cfe/trunk/include/clang/AST/RecursiveASTVisitor.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/AST/RecursiveASTVisitor.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/AST/RecursiveASTVisitor.h (original)
> +++ cfe/trunk/include/clang/AST/RecursiveASTVisitor.h Mon Jul 7 08:01:15
> 2014
> @@ -2333,6 +2333,11 @@ DEF_TRAVERSE_STMT(OMPSingleDirective, {
> return false;
> })
>
> +DEF_TRAVERSE_STMT(OMPParallelForDirective, {
> + if (!TraverseOMPExecutableDirective(S))
> + return false;
> +})
> +
> // OpenMP clauses.
> template <typename Derived>
> bool RecursiveASTVisitor<Derived>::TraverseOMPClause(OMPClause *C) {
>
> Modified: cfe/trunk/include/clang/AST/StmtOpenMP.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/AST/StmtOpenMP.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/AST/StmtOpenMP.h (original)
> +++ cfe/trunk/include/clang/AST/StmtOpenMP.h Mon Jul 7 08:01:15 2014
> @@ -527,6 +527,78 @@ public:
> }
> };
>
> +/// \brief This represents '#pragma omp parallel for' directive.
> +///
> +/// \code
> +/// #pragma omp parallel for private(a,b) reduction(+:c,d)
> +/// \endcode
> +/// In this example directive '#pragma omp parallel for' has clauses
> 'private'
> +/// with the variables 'a' and 'b' and 'reduction' with operator '+' and
> +/// variables 'c' and 'd'.
> +///
> +class OMPParallelForDirective : public OMPExecutableDirective {
> + friend class ASTStmtReader;
> + /// \brief Number of collapsed loops as specified by 'collapse' clause.
> + unsigned CollapsedNum;
> + /// \brief Build directive with the given start and end location.
> + ///
> + /// \param StartLoc Starting location of the directive kind.
> + /// \param EndLoc Ending location of the directive.
> + /// \param CollapsedNum Number of collapsed nested loops.
> + /// \param NumClauses Number of clauses.
> + ///
> + OMPParallelForDirective(SourceLocation StartLoc, SourceLocation EndLoc,
> + unsigned CollapsedNum, unsigned NumClauses)
> + : OMPExecutableDirective(this, OMPParallelForDirectiveClass,
> + OMPD_parallel_for, StartLoc, EndLoc,
> NumClauses,
> + 1),
> + CollapsedNum(CollapsedNum) {}
> +
> + /// \brief Build an empty directive.
> + ///
> + /// \param CollapsedNum Number of collapsed nested loops.
> + /// \param NumClauses Number of clauses.
> + ///
> + explicit OMPParallelForDirective(unsigned CollapsedNum, unsigned
> NumClauses)
> + : OMPExecutableDirective(this, OMPParallelForDirectiveClass,
> + OMPD_parallel_for, SourceLocation(),
> + SourceLocation(), NumClauses, 1),
> + CollapsedNum(CollapsedNum) {}
> +
> +public:
> + /// \brief Creates directive with a list of \a Clauses.
> + ///
> + /// \param C AST context.
> + /// \param StartLoc Starting location of the directive kind.
> + /// \param EndLoc Ending Location of the directive.
> + /// \param CollapsedNum Number of collapsed loops.
> + /// \param Clauses List of clauses.
> + /// \param AssociatedStmt Statement, associated with the directive.
> + ///
> + static OMPParallelForDirective *
> + Create(const ASTContext &C, SourceLocation StartLoc, SourceLocation
> EndLoc,
> + unsigned CollapsedNum, ArrayRef<OMPClause *> Clauses,
> + Stmt *AssociatedStmt);
> +
> + /// \brief Creates an empty directive with the place
> + /// for \a NumClauses clauses.
> + ///
> + /// \param C AST context.
> + /// \param CollapsedNum Number of collapsed nested loops.
> + /// \param NumClauses Number of clauses.
> + ///
> + static OMPParallelForDirective *CreateEmpty(const ASTContext &C,
> + unsigned NumClauses,
> + unsigned CollapsedNum,
> + EmptyShell);
> +
> + unsigned getCollapsedNumber() const { return CollapsedNum; }
> +
> + static bool classof(const Stmt *T) {
> + return T->getStmtClass() == OMPParallelForDirectiveClass;
> + }
> +};
> +
> } // end namespace clang
>
> #endif
>
> Modified: cfe/trunk/include/clang/Basic/DiagnosticSemaKinds.td
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/Basic/DiagnosticSemaKinds.td?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/Basic/DiagnosticSemaKinds.td (original)
> +++ cfe/trunk/include/clang/Basic/DiagnosticSemaKinds.td Mon Jul 7
> 08:01:15 2014
> @@ -7036,7 +7036,7 @@ def note_omp_predetermined_dsa : Note<
> def note_omp_implicit_dsa : Note<
> "implicitly determined as %0">;
> def err_omp_loop_var_dsa : Error<
> - "loop iteration variable may not be %0">;
> + "loop iteration variable in the associated loop of 'omp %1' directive
> may not be %0, predetermined as %2">;
> def err_omp_not_for : Error<
> "%select{statement after '#pragma omp %1' must be a for loop|"
> "expected %2 for loops after '#pragma omp %1'%select{|, but found only
> %4}3}0">;
>
> Modified: cfe/trunk/include/clang/Basic/OpenMPKinds.def
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/Basic/OpenMPKinds.def?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/Basic/OpenMPKinds.def (original)
> +++ cfe/trunk/include/clang/Basic/OpenMPKinds.def Mon Jul 7 08:01:15 2014
> @@ -15,6 +15,9 @@
> #ifndef OPENMP_DIRECTIVE
> # define OPENMP_DIRECTIVE(Name)
> #endif
> +#ifndef OPENMP_DIRECTIVE_EXT
> +#define OPENMP_DIRECTIVE_EXT(Name, Str)
> +#endif
> #ifndef OPENMP_CLAUSE
> # define OPENMP_CLAUSE(Name, Class)
> #endif
> @@ -33,6 +36,9 @@
> #ifndef OPENMP_SINGLE_CLAUSE
> # define OPENMP_SINGLE_CLAUSE(Name)
> #endif
> +#ifndef OPENMP_PARALLEL_FOR_CLAUSE
> +# define OPENMP_PARALLEL_FOR_CLAUSE(Name)
> +#endif
> #ifndef OPENMP_DEFAULT_KIND
> # define OPENMP_DEFAULT_KIND(Name)
> #endif
> @@ -52,6 +58,7 @@ OPENMP_DIRECTIVE(for)
> OPENMP_DIRECTIVE(sections)
> OPENMP_DIRECTIVE(section)
> OPENMP_DIRECTIVE(single)
> +OPENMP_DIRECTIVE_EXT(parallel_for, "parallel for")
>
> // OpenMP clauses.
> OPENMP_CLAUSE(if, OMPIfClause)
> @@ -131,14 +138,31 @@ OPENMP_SCHEDULE_KIND(guided)
> OPENMP_SCHEDULE_KIND(auto)
> OPENMP_SCHEDULE_KIND(runtime)
>
> +// Clauses allowed for OpenMP directive 'parallel for'.
> +OPENMP_PARALLEL_FOR_CLAUSE(if)
> +OPENMP_PARALLEL_FOR_CLAUSE(num_threads)
> +OPENMP_PARALLEL_FOR_CLAUSE(default)
> +OPENMP_PARALLEL_FOR_CLAUSE(proc_bind)
> +OPENMP_PARALLEL_FOR_CLAUSE(private)
> +OPENMP_PARALLEL_FOR_CLAUSE(firstprivate)
> +OPENMP_PARALLEL_FOR_CLAUSE(shared)
> +OPENMP_PARALLEL_FOR_CLAUSE(reduction)
> +OPENMP_PARALLEL_FOR_CLAUSE(copyin)
> +OPENMP_PARALLEL_FOR_CLAUSE(lastprivate)
> +OPENMP_PARALLEL_FOR_CLAUSE(collapse)
> +OPENMP_PARALLEL_FOR_CLAUSE(schedule)
> +OPENMP_PARALLEL_FOR_CLAUSE(ordered)
> +
> #undef OPENMP_SCHEDULE_KIND
> #undef OPENMP_PROC_BIND_KIND
> #undef OPENMP_DEFAULT_KIND
> #undef OPENMP_DIRECTIVE
> +#undef OPENMP_DIRECTIVE_EXT
> #undef OPENMP_CLAUSE
> #undef OPENMP_SINGLE_CLAUSE
> #undef OPENMP_SECTIONS_CLAUSE
> #undef OPENMP_PARALLEL_CLAUSE
> +#undef OPENMP_PARALLEL_FOR_CLAUSE
> #undef OPENMP_SIMD_CLAUSE
> #undef OPENMP_FOR_CLAUSE
>
>
> Modified: cfe/trunk/include/clang/Basic/OpenMPKinds.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/Basic/OpenMPKinds.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/Basic/OpenMPKinds.h (original)
> +++ cfe/trunk/include/clang/Basic/OpenMPKinds.h Mon Jul 7 08:01:15 2014
> @@ -23,6 +23,8 @@ namespace clang {
> enum OpenMPDirectiveKind {
> #define OPENMP_DIRECTIVE(Name) \
> OMPD_##Name,
> +#define OPENMP_DIRECTIVE_EXT(Name, Str) \
> + OMPD_##Name,
> #include "clang/Basic/OpenMPKinds.def"
> OMPD_unknown
> };
>
> Modified: cfe/trunk/include/clang/Basic/StmtNodes.td
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/Basic/StmtNodes.td?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/Basic/StmtNodes.td (original)
> +++ cfe/trunk/include/clang/Basic/StmtNodes.td Mon Jul 7 08:01:15 2014
> @@ -184,3 +184,4 @@ def OMPForDirective : DStmt<OMPExecutabl
> def OMPSectionsDirective : DStmt<OMPExecutableDirective>;
> def OMPSectionDirective : DStmt<OMPExecutableDirective>;
> def OMPSingleDirective : DStmt<OMPExecutableDirective>;
> +def OMPParallelForDirective : DStmt<OMPExecutableDirective>;
>
> Modified: cfe/trunk/include/clang/Sema/Sema.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/Sema/Sema.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/Sema/Sema.h (original)
> +++ cfe/trunk/include/clang/Sema/Sema.h Mon Jul 7 08:01:15 2014
> @@ -7312,15 +7312,16 @@ public:
> SourceLocation EndLoc);
> /// \brief Called on well-formed '\#pragma omp simd' after parsing
> /// of the associated statement.
> - StmtResult ActOnOpenMPSimdDirective(ArrayRef<OMPClause *> Clauses,
> - Stmt *AStmt,
> - SourceLocation StartLoc,
> - SourceLocation EndLoc);
> + StmtResult ActOnOpenMPSimdDirective(
> + ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
> + SourceLocation EndLoc,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA);
> /// \brief Called on well-formed '\#pragma omp for' after parsing
> /// of the associated statement.
> - StmtResult ActOnOpenMPForDirective(ArrayRef<OMPClause *> Clauses, Stmt
> *AStmt,
> - SourceLocation StartLoc,
> - SourceLocation EndLoc);
> + StmtResult ActOnOpenMPForDirective(
> + ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
> + SourceLocation EndLoc,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA);
> /// \brief Called on well-formed '\#pragma omp sections' after parsing
> /// of the associated statement.
> StmtResult ActOnOpenMPSectionsDirective(ArrayRef<OMPClause *> Clauses,
> @@ -7335,6 +7336,12 @@ public:
> StmtResult ActOnOpenMPSingleDirective(ArrayRef<OMPClause *> Clauses,
> Stmt *AStmt, SourceLocation
> StartLoc,
> SourceLocation EndLoc);
> + /// \brief Called on well-formed '\#pragma omp parallel for' after
> parsing
> + /// of the associated statement.
> + StmtResult ActOnOpenMPParallelForDirective(
> + ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
> + SourceLocation EndLoc,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA);
>
> OMPClause *ActOnOpenMPSingleExprClause(OpenMPClauseKind Kind,
> Expr *Expr,
>
> Modified: cfe/trunk/include/clang/Serialization/ASTBitCodes.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/include/clang/Serialization/ASTBitCodes.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/include/clang/Serialization/ASTBitCodes.h (original)
> +++ cfe/trunk/include/clang/Serialization/ASTBitCodes.h Mon Jul 7
> 08:01:15 2014
> @@ -1346,6 +1346,7 @@ namespace clang {
> STMT_OMP_SECTIONS_DIRECTIVE,
> STMT_OMP_SECTION_DIRECTIVE,
> STMT_OMP_SINGLE_DIRECTIVE,
> + STMT_OMP_PARALLEL_FOR_DIRECTIVE,
>
> // ARC
> EXPR_OBJC_BRIDGED_CAST, // ObjCBridgedCastExpr
>
> Modified: cfe/trunk/lib/AST/Stmt.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/AST/Stmt.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/AST/Stmt.cpp (original)
> +++ cfe/trunk/lib/AST/Stmt.cpp Mon Jul 7 08:01:15 2014
> @@ -1478,3 +1478,29 @@ OMPSingleDirective *OMPSingleDirective::
> return new (Mem) OMPSingleDirective(NumClauses);
> }
>
> +OMPParallelForDirective *
> +OMPParallelForDirective::Create(const ASTContext &C, SourceLocation
> StartLoc,
> + SourceLocation EndLoc, unsigned
> CollapsedNum,
> + ArrayRef<OMPClause *> Clauses,
> + Stmt *AssociatedStmt) {
> + unsigned Size =
> llvm::RoundUpToAlignment(sizeof(OMPParallelForDirective),
> + llvm::alignOf<OMPClause *>());
> + void *Mem =
> + C.Allocate(Size + sizeof(OMPClause *) * Clauses.size() +
> sizeof(Stmt *));
> + OMPParallelForDirective *Dir = new (Mem)
> + OMPParallelForDirective(StartLoc, EndLoc, CollapsedNum,
> Clauses.size());
> + Dir->setClauses(Clauses);
> + Dir->setAssociatedStmt(AssociatedStmt);
> + return Dir;
> +}
> +
> +OMPParallelForDirective *
> +OMPParallelForDirective::CreateEmpty(const ASTContext &C, unsigned
> NumClauses,
> + unsigned CollapsedNum, EmptyShell) {
> + unsigned Size =
> llvm::RoundUpToAlignment(sizeof(OMPParallelForDirective),
> + llvm::alignOf<OMPClause *>());
> + void *Mem =
> + C.Allocate(Size + sizeof(OMPClause *) * NumClauses + sizeof(Stmt
> *));
> + return new (Mem) OMPParallelForDirective(CollapsedNum, NumClauses);
> +}
> +
>
> Modified: cfe/trunk/lib/AST/StmtPrinter.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/AST/StmtPrinter.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/AST/StmtPrinter.cpp (original)
> +++ cfe/trunk/lib/AST/StmtPrinter.cpp Mon Jul 7 08:01:15 2014
> @@ -815,6 +815,11 @@ void StmtPrinter::VisitOMPSingleDirectiv
> PrintOMPExecutableDirective(Node);
> }
>
> +void StmtPrinter::VisitOMPParallelForDirective(OMPParallelForDirective
> *Node) {
> + Indent() << "#pragma omp parallel for ";
> + PrintOMPExecutableDirective(Node);
> +}
> +
>
> //===----------------------------------------------------------------------===//
> // Expr printing methods.
>
> //===----------------------------------------------------------------------===//
>
> Modified: cfe/trunk/lib/AST/StmtProfile.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/AST/StmtProfile.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/AST/StmtProfile.cpp (original)
> +++ cfe/trunk/lib/AST/StmtProfile.cpp Mon Jul 7 08:01:15 2014
> @@ -380,6 +380,11 @@ void StmtProfiler::VisitOMPSingleDirecti
> VisitOMPExecutableDirective(S);
> }
>
> +void
> +StmtProfiler::VisitOMPParallelForDirective(const OMPParallelForDirective
> *S) {
> + VisitOMPExecutableDirective(S);
> +}
> +
> void StmtProfiler::VisitExpr(const Expr *S) {
> VisitStmt(S);
> }
>
> Modified: cfe/trunk/lib/Basic/OpenMPKinds.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/Basic/OpenMPKinds.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/Basic/OpenMPKinds.cpp (original)
> +++ cfe/trunk/lib/Basic/OpenMPKinds.cpp Mon Jul 7 08:01:15 2014
> @@ -23,6 +23,7 @@ using namespace clang;
> OpenMPDirectiveKind clang::getOpenMPDirectiveKind(StringRef Str) {
> return llvm::StringSwitch<OpenMPDirectiveKind>(Str)
> #define OPENMP_DIRECTIVE(Name) .Case(#Name, OMPD_##Name)
> +#define OPENMP_DIRECTIVE_EXT(Name, Str) .Case(Str, OMPD_##Name)
> #include "clang/Basic/OpenMPKinds.def"
> .Default(OMPD_unknown);
> }
> @@ -35,6 +36,9 @@ const char *clang::getOpenMPDirectiveNam
> #define OPENMP_DIRECTIVE(Name)
> \
> case OMPD_##Name:
> \
> return #Name;
> +#define OPENMP_DIRECTIVE_EXT(Name, Str)
> \
> + case OMPD_##Name:
> \
> + return Str;
> #include "clang/Basic/OpenMPKinds.def"
> break;
> }
> @@ -213,6 +217,16 @@ bool clang::isAllowedClauseForDirective(
> break;
> }
> break;
> + case OMPD_parallel_for:
> + switch (CKind) {
> +#define OPENMP_PARALLEL_FOR_CLAUSE(Name)
> \
> + case OMPC_##Name:
> \
> + return true;
> +#include "clang/Basic/OpenMPKinds.def"
> + default:
> + break;
> + }
> + break;
> case OMPD_unknown:
> case OMPD_threadprivate:
> case OMPD_task:
> @@ -223,16 +237,19 @@ bool clang::isAllowedClauseForDirective(
> }
>
> bool clang::isOpenMPLoopDirective(OpenMPDirectiveKind DKind) {
> - return DKind == OMPD_simd || DKind == OMPD_for; // TODO add next
> directives.
> + return DKind == OMPD_simd || DKind == OMPD_for ||
> + DKind == OMPD_parallel_for; // TODO add next directives.
> }
>
> bool clang::isOpenMPWorksharingDirective(OpenMPDirectiveKind DKind) {
> return DKind == OMPD_for || DKind == OMPD_sections || DKind ==
> OMPD_section ||
> - DKind == OMPD_single; // TODO add next directives.
> + DKind == OMPD_single ||
> + DKind == OMPD_parallel_for; // TODO add next directives.
> }
>
> bool clang::isOpenMPParallelDirective(OpenMPDirectiveKind DKind) {
> - return DKind == OMPD_parallel; // TODO add next directives.
> + return DKind == OMPD_parallel ||
> + DKind == OMPD_parallel_for; // TODO add next directives.
> }
>
> bool clang::isOpenMPSimdDirective(OpenMPDirectiveKind DKind) {
>
> Modified: cfe/trunk/lib/CodeGen/CGStmt.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/CodeGen/CGStmt.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/CodeGen/CGStmt.cpp (original)
> +++ cfe/trunk/lib/CodeGen/CGStmt.cpp Mon Jul 7 08:01:15 2014
> @@ -194,6 +194,9 @@ void CodeGenFunction::EmitStmt(const Stm
> case Stmt::OMPSingleDirectiveClass:
> EmitOMPSingleDirective(cast<OMPSingleDirective>(*S));
> break;
> + case Stmt::OMPParallelForDirectiveClass:
> + EmitOMPParallelForDirective(cast<OMPParallelForDirective>(*S));
> + break;
> }
> }
>
>
> Modified: cfe/trunk/lib/CodeGen/CGStmtOpenMP.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/CodeGen/CGStmtOpenMP.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/CodeGen/CGStmtOpenMP.cpp (original)
> +++ cfe/trunk/lib/CodeGen/CGStmtOpenMP.cpp Mon Jul 7 08:01:15 2014
> @@ -90,3 +90,8 @@ void CodeGenFunction::EmitOMPSingleDirec
> llvm_unreachable("CodeGen for 'omp single' is not supported yet.");
> }
>
> +void
> +CodeGenFunction::EmitOMPParallelForDirective(const
> OMPParallelForDirective &) {
> + llvm_unreachable("CodeGen for 'omp parallel for' is not supported
> yet.");
> +}
> +
>
> Modified: cfe/trunk/lib/CodeGen/CodeGenFunction.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/CodeGen/CodeGenFunction.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/CodeGen/CodeGenFunction.h (original)
> +++ cfe/trunk/lib/CodeGen/CodeGenFunction.h Mon Jul 7 08:01:15 2014
> @@ -1903,6 +1903,7 @@ public:
> void EmitOMPSectionsDirective(const OMPSectionsDirective &S);
> void EmitOMPSectionDirective(const OMPSectionDirective &S);
> void EmitOMPSingleDirective(const OMPSingleDirective &S);
> + void EmitOMPParallelForDirective(const OMPParallelForDirective &S);
>
>
> //===--------------------------------------------------------------------===//
> // LValue Expression Emission
>
> Modified: cfe/trunk/lib/Parse/ParseOpenMP.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/Parse/ParseOpenMP.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/Parse/ParseOpenMP.cpp (original)
> +++ cfe/trunk/lib/Parse/ParseOpenMP.cpp Mon Jul 7 08:01:15 2014
> @@ -25,6 +25,26 @@ using namespace clang;
> // OpenMP declarative directives.
>
> //===----------------------------------------------------------------------===//
>
> +static OpenMPDirectiveKind ParseOpenMPDirectiveKind(Parser &P) {
> + auto Tok = P.getCurToken();
> + auto DKind =
> + Tok.isAnnotation()
> + ? OMPD_unknown
> + : getOpenMPDirectiveKind(P.getPreprocessor().getSpelling(Tok));
> + if (DKind == OMPD_parallel) {
> + Tok = P.getPreprocessor().LookAhead(0);
> + auto SDKind =
> + Tok.isAnnotation()
> + ? OMPD_unknown
> + :
> getOpenMPDirectiveKind(P.getPreprocessor().getSpelling(Tok));
> + if (SDKind == OMPD_for) {
> + P.ConsumeToken();
> + DKind = OMPD_parallel_for;
> + }
> + }
> + return DKind;
> +}
> +
> /// \brief Parsing of declarative OpenMP directives.
> ///
> /// threadprivate-directive:
> @@ -36,9 +56,7 @@ Parser::DeclGroupPtrTy Parser::ParseOpen
>
> SourceLocation Loc = ConsumeToken();
> SmallVector<Expr *, 5> Identifiers;
> - OpenMPDirectiveKind DKind = Tok.isAnnotation()
> - ? OMPD_unknown
> - :
> getOpenMPDirectiveKind(PP.getSpelling(Tok));
> + auto DKind = ParseOpenMPDirectiveKind(*this);
>
> switch (DKind) {
> case OMPD_threadprivate:
> @@ -66,6 +84,7 @@ Parser::DeclGroupPtrTy Parser::ParseOpen
> case OMPD_sections:
> case OMPD_section:
> case OMPD_single:
> + case OMPD_parallel_for:
> Diag(Tok, diag::err_omp_unexpected_directive)
> << getOpenMPDirectiveName(DKind);
> break;
> @@ -82,7 +101,7 @@ Parser::DeclGroupPtrTy Parser::ParseOpen
> ///
> /// executable-directive:
> /// annot_pragma_openmp 'parallel' | 'simd' | 'for' | 'sections' |
> -/// 'section' | 'single' {clause} annot_pragma_openmp_end
> +/// 'section' | 'single' | 'parallel for' {clause}
> annot_pragma_openmp_end
> ///
> StmtResult Parser::ParseOpenMPDeclarativeOrExecutableDirective() {
> assert(Tok.is(tok::annot_pragma_openmp) && "Not an OpenMP directive!");
> @@ -94,9 +113,7 @@ StmtResult Parser::ParseOpenMPDeclarativ
> unsigned ScopeFlags =
> Scope::FnScope | Scope::DeclScope | Scope::OpenMPDirectiveScope;
> SourceLocation Loc = ConsumeToken(), EndLoc;
> - OpenMPDirectiveKind DKind = Tok.isAnnotation()
> - ? OMPD_unknown
> - :
> getOpenMPDirectiveKind(PP.getSpelling(Tok));
> + auto DKind = ParseOpenMPDirectiveKind(*this);
> // Name of critical directive.
> DeclarationNameInfo DirName;
> StmtResult Directive = StmtError();
> @@ -123,7 +140,8 @@ StmtResult Parser::ParseOpenMPDeclarativ
> case OMPD_for:
> case OMPD_sections:
> case OMPD_single:
> - case OMPD_section: {
> + case OMPD_section:
> + case OMPD_parallel_for: {
> ConsumeToken();
>
> if (isOpenMPLoopDirective(DKind))
>
> Modified: cfe/trunk/lib/Sema/SemaOpenMP.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/Sema/SemaOpenMP.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/Sema/SemaOpenMP.cpp (original)
> +++ cfe/trunk/lib/Sema/SemaOpenMP.cpp Mon Jul 7 08:01:15 2014
> @@ -835,6 +835,7 @@ class DSAAttrChecker : public StmtVisito
> bool ErrorFound;
> CapturedStmt *CS;
> llvm::SmallVector<Expr *, 8> ImplicitFirstprivate;
> + llvm::DenseMap<VarDecl *, Expr *> VarsWithInheritedDSA;
>
> public:
> void VisitDeclRefExpr(DeclRefExpr *E) {
> @@ -858,9 +859,9 @@ public:
> // attribute, must have its data-sharing attribute explicitly
> determined
> // by being listed in a data-sharing attribute clause.
> if (DVar.CKind == OMPC_unknown && Stack->getDefaultDSA() ==
> DSA_none &&
> - (isOpenMPParallelDirective(DKind) || DKind == OMPD_task)) {
> - ErrorFound = true;
> - SemaRef.Diag(ELoc, diag::err_omp_no_dsa_for_variable) << VD;
> + (isOpenMPParallelDirective(DKind) || DKind == OMPD_task) &&
> + VarsWithInheritedDSA.count(VD) == 0) {
> + VarsWithInheritedDSA[VD] = E;
> return;
> }
>
> @@ -900,6 +901,9 @@ public:
>
> bool isErrorFound() { return ErrorFound; }
> ArrayRef<Expr *> getImplicitFirstprivate() { return
> ImplicitFirstprivate; }
> + llvm::DenseMap<VarDecl *, Expr *> &getVarsWithInheritedDSA() {
> + return VarsWithInheritedDSA;
> + }
>
> DSAAttrChecker(DSAStackTy *S, Sema &SemaRef, CapturedStmt *CS)
> : Stack(S), SemaRef(SemaRef), ErrorFound(false), CS(CS) {}
> @@ -960,6 +964,18 @@ void Sema::ActOnOpenMPRegionStart(OpenMP
> Params);
> break;
> }
> + case OMPD_parallel_for: {
> + QualType KmpInt32Ty = Context.getIntTypeForBitwidth(32, 1);
> + QualType KmpInt32PtrTy = Context.getPointerType(KmpInt32Ty);
> + Sema::CapturedParamNameType Params[] = {
> + std::make_pair(".global_tid.", KmpInt32PtrTy),
> + std::make_pair(".bound_tid.", KmpInt32PtrTy),
> + std::make_pair(StringRef(), QualType()) // __context with shared
> vars
> + };
> + ActOnCapturedRegionStart(DSAStack->getConstructLoc(), CurScope,
> CR_OpenMP,
> + Params);
> + break;
> + }
> case OMPD_threadprivate:
> case OMPD_task:
> llvm_unreachable("OpenMP Directive is not allowed");
> @@ -981,6 +997,7 @@ bool CheckNestingOfRegions(Sema &SemaRef
> // | parallel | sections | *
> |
> // | parallel | section | +
> |
> // | parallel | single | *
> |
> + // | parallel | parallel for | *
> |
> //
> +------------------+-----------------+------------------------------------+
> // | for | parallel | *
> |
> // | for | for | +
> |
> @@ -988,6 +1005,7 @@ bool CheckNestingOfRegions(Sema &SemaRef
> // | for | sections | +
> |
> // | for | section | +
> |
> // | for | single | +
> |
> + // | for | parallel for | *
> |
> //
> +------------------+-----------------+------------------------------------+
> // | simd | parallel |
> |
> // | simd | for |
> |
> @@ -995,6 +1013,7 @@ bool CheckNestingOfRegions(Sema &SemaRef
> // | simd | sections |
> |
> // | simd | section |
> |
> // | simd | single |
> |
> + // | simd | parallel for |
> |
> //
> +------------------+-----------------+------------------------------------+
> // | sections | parallel | *
> |
> // | sections | for | +
> |
> @@ -1002,6 +1021,7 @@ bool CheckNestingOfRegions(Sema &SemaRef
> // | sections | sections | +
> |
> // | sections | section | *
> |
> // | sections | single | +
> |
> + // | sections | parallel for | *
> |
> //
> +------------------+-----------------+------------------------------------+
> // | section | parallel | *
> |
> // | section | for | +
> |
> @@ -1009,6 +1029,7 @@ bool CheckNestingOfRegions(Sema &SemaRef
> // | section | sections | +
> |
> // | section | section | +
> |
> // | section | single | +
> |
> + // | section | parallel for | *
> |
> //
> +------------------+-----------------+------------------------------------+
> // | single | parallel | *
> |
> // | single | for | +
> |
> @@ -1016,6 +1037,15 @@ bool CheckNestingOfRegions(Sema &SemaRef
> // | single | sections | +
> |
> // | single | section | +
> |
> // | single | single | +
> |
> + // | single | parallel for | *
> |
> + //
> +------------------+-----------------+------------------------------------+
> + // | parallel for | parallel | *
> |
> + // | parallel for | for | +
> |
> + // | parallel for | simd | *
> |
> + // | parallel for | sections | +
> |
> + // | parallel for | section | +
> |
> + // | parallel for | single | +
> |
> + // | parallel for | parallel for | *
> |
> //
> +------------------+-----------------+------------------------------------+
> if (Stack->getCurScope()) {
> auto ParentRegion = Stack->getParentDirective();
> @@ -1079,6 +1109,7 @@ StmtResult Sema::ActOnOpenMPExecutableDi
> if (DSAChecker.isErrorFound())
> return StmtError();
> // Generate list of implicitly defined firstprivate variables.
> + auto &VarsWithInheritedDSA = DSAChecker.getVarsWithInheritedDSA();
> llvm::SmallVector<OMPClause *, 8> ClausesWithImplicit;
> ClausesWithImplicit.append(Clauses.begin(), Clauses.end());
>
> @@ -1100,11 +1131,12 @@ StmtResult Sema::ActOnOpenMPExecutableDi
> EndLoc);
> break;
> case OMPD_simd:
> - Res =
> - ActOnOpenMPSimdDirective(ClausesWithImplicit, AStmt, StartLoc,
> EndLoc);
> + Res = ActOnOpenMPSimdDirective(ClausesWithImplicit, AStmt, StartLoc,
> EndLoc,
> + VarsWithInheritedDSA);
> break;
> case OMPD_for:
> - Res = ActOnOpenMPForDirective(ClausesWithImplicit, AStmt, StartLoc,
> EndLoc);
> + Res = ActOnOpenMPForDirective(ClausesWithImplicit, AStmt, StartLoc,
> EndLoc,
> + VarsWithInheritedDSA);
> break;
> case OMPD_sections:
> Res = ActOnOpenMPSectionsDirective(ClausesWithImplicit, AStmt,
> StartLoc,
> @@ -1119,6 +1151,10 @@ StmtResult Sema::ActOnOpenMPExecutableDi
> Res = ActOnOpenMPSingleDirective(ClausesWithImplicit, AStmt, StartLoc,
> EndLoc);
> break;
> + case OMPD_parallel_for:
> + Res = ActOnOpenMPParallelForDirective(ClausesWithImplicit, AStmt,
> StartLoc,
> + EndLoc, VarsWithInheritedDSA);
> + break;
> case OMPD_threadprivate:
> case OMPD_task:
> llvm_unreachable("OpenMP Directive is not allowed");
> @@ -1126,6 +1162,13 @@ StmtResult Sema::ActOnOpenMPExecutableDi
> llvm_unreachable("Unknown OpenMP directive");
> }
>
> + for (auto P : VarsWithInheritedDSA) {
> + Diag(P.second->getExprLoc(), diag::err_omp_no_dsa_for_variable)
> + << P.first << P.second->getSourceRange();
> + }
> + if (!VarsWithInheritedDSA.empty())
> + return StmtError();
> +
> if (ErrorFound)
> return StmtError();
> return Res;
> @@ -1512,11 +1555,11 @@ bool OpenMPIterationSpaceChecker::CheckI
>
> /// \brief Called on a for stmt to check and extract its iteration space
> /// for further processing (such as collapsing).
> -static bool CheckOpenMPIterationSpace(OpenMPDirectiveKind DKind, Stmt *S,
> - Sema &SemaRef, DSAStackTy &DSA,
> - unsigned CurrentNestedLoopCount,
> - unsigned NestedLoopCount,
> - Expr *NestedLoopCountExpr) {
> +static bool CheckOpenMPIterationSpace(
> + OpenMPDirectiveKind DKind, Stmt *S, Sema &SemaRef, DSAStackTy &DSA,
> + unsigned CurrentNestedLoopCount, unsigned NestedLoopCount,
> + Expr *NestedLoopCountExpr,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA) {
> // OpenMP [2.6, Canonical Loop Form]
> // for (init-expr; test-expr; incr-expr) structured-block
> auto For = dyn_cast_or_null<ForStmt>(S);
> @@ -1560,6 +1603,18 @@ static bool CheckOpenMPIterationSpace(Op
> HasErrors = true;
> }
>
> + // OpenMP, 2.14.1.1 Data-sharing Attribute Rules for Variables
> Referenced in a
> + // Construct
> + // The loop iteration variable(s) in the associated for-loop(s) of a
> for or
> + // parallel for construct is (are) private.
> + // The loop iteration variable in the associated for-loop of a simd
> construct
> + // with just one associated for-loop is linear with a
> constant-linear-step
> + // that is the increment of the associated for-loop.
> + // Exclude loop var from the list of variables with implicitly defined
> data
> + // sharing attributes.
> + while (VarsWithImplicitDSA.count(Var) > 0)
> + VarsWithImplicitDSA.erase(Var);
> +
> // OpenMP [2.14.1.1, Data-sharing Attribute Rules for Variables
> Referenced in
> // a Construct, C/C++].
> // The loop iteration variable in the associated for-loop of a simd
> construct
> @@ -1568,18 +1623,25 @@ static bool CheckOpenMPIterationSpace(Op
> // The loop iteration variable(s) in the associated for-loop(s) of a
> for or
> // parallel for construct may be listed in a private or lastprivate
> clause.
> DSAStackTy::DSAVarData DVar = DSA.getTopDSA(Var);
> + auto PredeterminedCKind =
> + isOpenMPSimdDirective(DKind)
> + ? ((NestedLoopCount == 1) ? OMPC_linear : OMPC_lastprivate)
> + : OMPC_private;
> if (((isOpenMPSimdDirective(DKind) && DVar.CKind != OMPC_unknown &&
> - DVar.CKind != OMPC_linear && DVar.CKind != OMPC_lastprivate) ||
> + DVar.CKind != PredeterminedCKind) ||
> (isOpenMPWorksharingDirective(DKind) && DVar.CKind != OMPC_unknown
> &&
> DVar.CKind != OMPC_private && DVar.CKind != OMPC_lastprivate)) &&
> (DVar.CKind != OMPC_private || DVar.RefExpr != nullptr)) {
> SemaRef.Diag(Init->getLocStart(), diag::err_omp_loop_var_dsa)
> - << getOpenMPClauseName(DVar.CKind);
> + << getOpenMPClauseName(DVar.CKind) <<
> getOpenMPDirectiveName(DKind)
> + << getOpenMPClauseName(PredeterminedCKind);
> ReportOriginalDSA(SemaRef, &DSA, Var, DVar, true);
> HasErrors = true;
> } else {
> - // Make the loop iteration variable private by default.
> - DSA.addDSA(Var, nullptr, OMPC_private);
> + // Make the loop iteration variable private (for worksharing
> constructs),
> + // linear (for simd directives with the only one associated loop) or
> + // lastprivate (for simd directives with several collapsed loops).
> + DSA.addDSA(Var, nullptr, PredeterminedCKind);
> }
>
> assert(isOpenMPLoopDirective(DKind) && "DSA for non-loop vars");
> @@ -1624,9 +1686,10 @@ static Stmt *IgnoreContainerStmts(Stmt *
> /// \brief Called on a for stmt to check itself and nested loops (if any).
> /// \return Returns 0 if one of the collapsed stmts is not canonical for
> loop,
> /// number of collapsed loops otherwise.
> -static unsigned CheckOpenMPLoop(OpenMPDirectiveKind DKind,
> - Expr *NestedLoopCountExpr, Stmt *AStmt,
> - Sema &SemaRef, DSAStackTy &DSA) {
> +static unsigned
> +CheckOpenMPLoop(OpenMPDirectiveKind DKind, Expr *NestedLoopCountExpr,
> + Stmt *AStmt, Sema &SemaRef, DSAStackTy &DSA,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA) {
> unsigned NestedLoopCount = 1;
> if (NestedLoopCountExpr) {
> // Found 'collapse' clause - calculate collapse number.
> @@ -1639,7 +1702,8 @@ static unsigned CheckOpenMPLoop(OpenMPDi
> Stmt *CurStmt = IgnoreContainerStmts(AStmt, true);
> for (unsigned Cnt = 0; Cnt < NestedLoopCount; ++Cnt) {
> if (CheckOpenMPIterationSpace(DKind, CurStmt, SemaRef, DSA, Cnt,
> - NestedLoopCount, NestedLoopCountExpr))
> + NestedLoopCount, NestedLoopCountExpr,
> + VarsWithImplicitDSA))
> return 0;
> // Move on to the next nested for loop, or to the loop body.
> CurStmt = IgnoreContainerStmts(cast<ForStmt>(CurStmt)->getBody(),
> false);
> @@ -1661,12 +1725,14 @@ static Expr *GetCollapseNumberExpr(Array
> return nullptr;
> }
>
> -StmtResult Sema::ActOnOpenMPSimdDirective(ArrayRef<OMPClause *> Clauses,
> - Stmt *AStmt, SourceLocation
> StartLoc,
> - SourceLocation EndLoc) {
> +StmtResult Sema::ActOnOpenMPSimdDirective(
> + ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
> + SourceLocation EndLoc,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA) {
> // In presence of clause 'collapse', it will define the nested loops
> number.
> - unsigned NestedLoopCount = CheckOpenMPLoop(
> - OMPD_simd, GetCollapseNumberExpr(Clauses), AStmt, *this, *DSAStack);
> + unsigned NestedLoopCount =
> + CheckOpenMPLoop(OMPD_simd, GetCollapseNumberExpr(Clauses), AStmt,
> *this,
> + *DSAStack, VarsWithImplicitDSA);
> if (NestedLoopCount == 0)
> return StmtError();
>
> @@ -1675,12 +1741,14 @@ StmtResult Sema::ActOnOpenMPSimdDirectiv
> Clauses, AStmt);
> }
>
> -StmtResult Sema::ActOnOpenMPForDirective(ArrayRef<OMPClause *> Clauses,
> - Stmt *AStmt, SourceLocation
> StartLoc,
> - SourceLocation EndLoc) {
> +StmtResult Sema::ActOnOpenMPForDirective(
> + ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
> + SourceLocation EndLoc,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA) {
> // In presence of clause 'collapse', it will define the nested loops
> number.
> - unsigned NestedLoopCount = CheckOpenMPLoop(
> - OMPD_for, GetCollapseNumberExpr(Clauses), AStmt, *this, *DSAStack);
> + unsigned NestedLoopCount =
> + CheckOpenMPLoop(OMPD_for, GetCollapseNumberExpr(Clauses), AStmt,
> *this,
> + *DSAStack, VarsWithImplicitDSA);
> if (NestedLoopCount == 0)
> return StmtError();
>
> @@ -1741,6 +1809,31 @@ StmtResult Sema::ActOnOpenMPSingleDirect
> return OMPSingleDirective::Create(Context, StartLoc, EndLoc, Clauses,
> AStmt);
> }
>
> +StmtResult Sema::ActOnOpenMPParallelForDirective(
> + ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
> + SourceLocation EndLoc,
> + llvm::DenseMap<VarDecl *, Expr *> &VarsWithImplicitDSA) {
> + assert(AStmt && isa<CapturedStmt>(AStmt) && "Captured statement
> expected");
> + CapturedStmt *CS = cast<CapturedStmt>(AStmt);
> + // 1.2.2 OpenMP Language Terminology
> + // Structured block - An executable statement with a single entry at the
> + // top and a single exit at the bottom.
> + // The point of exit cannot be a branch out of the structured block.
> + // longjmp() and throw() must not violate the entry/exit criteria.
> + CS->getCapturedDecl()->setNothrow();
> +
> + // In presence of clause 'collapse', it will define the nested loops
> number.
> + unsigned NestedLoopCount =
> + CheckOpenMPLoop(OMPD_parallel_for, GetCollapseNumberExpr(Clauses),
> AStmt,
> + *this, *DSAStack, VarsWithImplicitDSA);
> + if (NestedLoopCount == 0)
> + return StmtError();
> +
> + getCurFunction()->setHasBranchProtectedScope();
> + return OMPParallelForDirective::Create(Context, StartLoc, EndLoc,
> + NestedLoopCount, Clauses, AStmt);
> +}
> +
> OMPClause *Sema::ActOnOpenMPSingleExprClause(OpenMPClauseKind Kind, Expr
> *Expr,
> SourceLocation StartLoc,
> SourceLocation LParenLoc,
>
> Modified: cfe/trunk/lib/Sema/TreeTransform.h
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/Sema/TreeTransform.h?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/Sema/TreeTransform.h (original)
> +++ cfe/trunk/lib/Sema/TreeTransform.h Mon Jul 7 08:01:15 2014
> @@ -6483,6 +6483,17 @@ TreeTransform<Derived>::TransformOMPSing
> return Res;
> }
>
> +template <typename Derived>
> +StmtResult TreeTransform<Derived>::TransformOMPParallelForDirective(
> + OMPParallelForDirective *D) {
> + DeclarationNameInfo DirName;
> + getDerived().getSema().StartOpenMPDSABlock(OMPD_parallel_for, DirName,
> + nullptr, D->getLocStart());
> + StmtResult Res = getDerived().TransformOMPExecutableDirective(D);
> + getDerived().getSema().EndOpenMPDSABlock(Res.get());
> + return Res;
> +}
> +
>
> //===----------------------------------------------------------------------===//
> // OpenMP clause transformation
>
> //===----------------------------------------------------------------------===//
>
> Modified: cfe/trunk/lib/Serialization/ASTReaderStmt.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/Serialization/ASTReaderStmt.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/Serialization/ASTReaderStmt.cpp (original)
> +++ cfe/trunk/lib/Serialization/ASTReaderStmt.cpp Mon Jul 7 08:01:15 2014
> @@ -1943,6 +1943,13 @@ void ASTStmtReader::VisitOMPSingleDirect
> VisitOMPExecutableDirective(D);
> }
>
> +void ASTStmtReader::VisitOMPParallelForDirective(OMPParallelForDirective
> *D) {
> + VisitStmt(D);
> + // Two fields (NumClauses and CollapsedNum) were read in
> ReadStmtFromStream.
> + Idx += 2;
> + VisitOMPExecutableDirective(D);
> +}
> +
>
> //===----------------------------------------------------------------------===//
> // ASTReader Implementation
>
> //===----------------------------------------------------------------------===//
> @@ -2455,6 +2462,14 @@ Stmt *ASTReader::ReadStmtFromStream(Modu
> Context, Record[ASTStmtReader::NumStmtFields], Empty);
> break;
>
> + case STMT_OMP_PARALLEL_FOR_DIRECTIVE: {
> + unsigned NumClauses = Record[ASTStmtReader::NumStmtFields];
> + unsigned CollapsedNum = Record[ASTStmtReader::NumStmtFields + 1];
> + S = OMPParallelForDirective::CreateEmpty(Context, NumClauses,
> + CollapsedNum, Empty);
> + break;
> + }
> +
> case EXPR_CXX_OPERATOR_CALL:
> S = new (Context) CXXOperatorCallExpr(Context, Empty);
> break;
>
> Modified: cfe/trunk/lib/Serialization/ASTWriterStmt.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/Serialization/ASTWriterStmt.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/Serialization/ASTWriterStmt.cpp (original)
> +++ cfe/trunk/lib/Serialization/ASTWriterStmt.cpp Mon Jul 7 08:01:15 2014
> @@ -1851,6 +1851,14 @@ void ASTStmtWriter::VisitOMPSingleDirect
> Code = serialization::STMT_OMP_SINGLE_DIRECTIVE;
> }
>
> +void ASTStmtWriter::VisitOMPParallelForDirective(OMPParallelForDirective
> *D) {
> + VisitStmt(D);
> + Record.push_back(D->getNumClauses());
> + Record.push_back(D->getCollapsedNumber());
> + VisitOMPExecutableDirective(D);
> + Code = serialization::STMT_OMP_PARALLEL_FOR_DIRECTIVE;
> +}
> +
>
> //===----------------------------------------------------------------------===//
> // ASTWriter Implementation
>
> //===----------------------------------------------------------------------===//
>
> Modified: cfe/trunk/lib/StaticAnalyzer/Core/ExprEngine.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/lib/StaticAnalyzer/Core/ExprEngine.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/lib/StaticAnalyzer/Core/ExprEngine.cpp (original)
> +++ cfe/trunk/lib/StaticAnalyzer/Core/ExprEngine.cpp Mon Jul 7 08:01:15
> 2014
> @@ -737,6 +737,7 @@ void ExprEngine::Visit(const Stmt *S, Ex
> case Stmt::OMPSectionsDirectiveClass:
> case Stmt::OMPSectionDirectiveClass:
> case Stmt::OMPSingleDirectiveClass:
> + case Stmt::OMPParallelForDirectiveClass:
> llvm_unreachable("Stmt should not be in analyzer evaluation loop");
>
> case Stmt::ObjCSubscriptRefExprClass:
>
> Modified: cfe/trunk/test/OpenMP/for_firstprivate_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/for_firstprivate_messages.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/for_firstprivate_messages.cpp (original)
> +++ cfe/trunk/test/OpenMP/for_firstprivate_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -252,7 +252,7 @@ int main(int argc, char **argv) {
> foo();
> #pragma omp parallel
> #pragma omp for firstprivate(i) // expected-note {{defined as
> firstprivate}}
> - for (i = 0; i < argc; ++i) // expected-error {{loop iteration
> variable may not be firstprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration
> variable in the associated loop of 'omp for' directive may not be
> firstprivate, predetermined as private}}
> foo();
> #pragma omp parallel shared(xa)
> #pragma omp for firstprivate(xa) // OK: may be firstprivate
>
> Modified: cfe/trunk/test/OpenMP/for_loop_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/for_loop_messages.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/for_loop_messages.cpp (original)
> +++ cfe/trunk/test/OpenMP/for_loop_messages.cpp Mon Jul 7 08:01:15 2014
> @@ -279,7 +279,7 @@ int test_iteration_spaces() {
>
> #pragma omp parallel
> // expected-note at +2 {{defined as firstprivate}}
> -// expected-error at +2 {{loop iteration variable may not be firstprivate}}
> +// expected-error at +2 {{loop iteration variable in the associated loop of
> 'omp for' directive may not be firstprivate, predetermined as private}}
> #pragma omp for firstprivate(ii)
> for (ii = 0; ii < 10; ii++)
> c[ii] = a[ii];
> @@ -287,7 +287,7 @@ int test_iteration_spaces() {
> #pragma omp parallel
> // expected-error at +3 {{unexpected OpenMP clause 'linear' in directive
> '#pragma omp for'}}
> // expected-note at +2 {{defined as linear}}
> -// expected-error at +2 {{loop iteration variable may not be linear}}
> +// expected-error at +2 {{loop iteration variable in the associated loop of
> 'omp for' directive may not be linear, predetermined as private}}
> #pragma omp for linear(ii)
> for (ii = 0; ii < 10; ii++)
> c[ii] = a[ii];
> @@ -304,7 +304,7 @@ int test_iteration_spaces() {
>
> #pragma omp parallel
> {
> -// expected-error at +2 {{loop iteration variable may not be threadprivate
> or thread local}}
> +// expected-error at +2 {{loop iteration variable in the associated loop of
> 'omp for' directive may not be threadprivate or thread local, predetermined
> as private}}
> #pragma omp for
> for (sii = 0; sii < 10; sii += 1)
> c[sii] = a[sii];
>
> Modified: cfe/trunk/test/OpenMP/nesting_of_regions.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/nesting_of_regions.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/nesting_of_regions.cpp (original)
> +++ cfe/trunk/test/OpenMP/nesting_of_regions.cpp Mon Jul 7 08:01:15 2014
> @@ -4,6 +4,7 @@ void bar();
>
> template <class T>
> void foo() {
> +// PARALLEL DIRECTIVE
> #pragma omp parallel
> #pragma omp for
> for (int i = 0; i < 10; ++i)
> @@ -25,6 +26,12 @@ void foo() {
> #pragma omp parallel
> #pragma omp single
> bar();
> +#pragma omp parallel
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> +
> +// SIMD DIRECTIVE
> #pragma omp simd
> for (int i = 0; i < 10; ++i) {
> #pragma omp for // expected-error {{OpenMP constructs may not be nested
> inside a simd region}}
> @@ -64,6 +71,14 @@ void foo() {
> bar();
> }
> }
> +#pragma omp simd
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel for // expected-error {{OpenMP constructs may not be
> nested inside a simd region}}
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// FOR DIRECTIVE
> #pragma omp for
> for (int i = 0; i < 10; ++i) {
> #pragma omp for // expected-error {{region cannot be closely nested
> inside 'for' region; perhaps you forget to enclose 'omp for' directive into
> a parallel region?}}
> @@ -120,6 +135,14 @@ void foo() {
> }
> }
> }
> +#pragma omp for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// SECTIONS DIRECTIVE
> #pragma omp sections
> {
> #pragma omp for // expected-error {{region cannot be closely nested
> inside 'sections' region; perhaps you forget to enclose 'omp for' directive
> into a parallel region?}}
> @@ -177,10 +200,20 @@ void foo() {
> }
> }
> }
> +#pragma omp sections
> + {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// SECTION DIRECTIVE
> #pragma omp section // expected-error {{orphaned 'omp section' directives
> are prohibited, it must be closely nested to a sections region}}
> {
> bar();
> }
> +
> +// SINGLE DIRECTIVE
> #pragma omp single
> {
> #pragma omp for // expected-error {{region cannot be closely nested
> inside 'single' region; perhaps you forget to enclose 'omp for' directive
> into a parallel region?}}
> @@ -230,9 +263,80 @@ void foo() {
> }
> }
> }
> +#pragma omp single
> + {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// PARALLEL FOR DIRECTIVE
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp for // expected-error {{region cannot be closely nested
> inside 'parallel for' region; perhaps you forget to enclose 'omp for'
> directive into a parallel region?}}
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp simd
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp sections // expected-error {{region cannot be closely nested
> inside 'parallel for' region; perhaps you forget to enclose 'omp sections'
> directive into a parallel region?}}
> + {
> + bar();
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp section // expected-error {{'omp section' directive must be
> closely nested to a sections region, not a parallel for region}}
> + {
> + bar();
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp single // expected-error {{region cannot be closely nested
> inside 'parallel for' region; perhaps you forget to enclose 'omp single'
> directive into a parallel region?}}
> + {
> + bar();
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel
> + {
> +#pragma omp single // OK
> + {
> + bar();
> + }
> +#pragma omp for // OK
> + for (int i = 0; i < 10; ++i)
> + ;
> +#pragma omp sections // OK
> + {
> + bar();
> + }
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> }
>
> void foo() {
> +// PARALLEL DIRECTIVE
> #pragma omp parallel
> #pragma omp for
> for (int i = 0; i < 10; ++i)
> @@ -259,6 +363,12 @@ void foo() {
> #pragma omp parallel
> #pragma omp single
> bar();
> +#pragma omp parallel
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> +
> +// SIMD DIRECTIVE
> #pragma omp simd
> for (int i = 0; i < 10; ++i) {
> #pragma omp for // expected-error {{OpenMP constructs may not be nested
> inside a simd region}}
> @@ -296,6 +406,14 @@ void foo() {
> #pragma omp single // expected-error {{OpenMP constructs may not be
> nested inside a simd region}}
> bar();
> }
> +#pragma omp simd
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel for // expected-error {{OpenMP constructs may not be
> nested inside a simd region}}
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// FOR DIRECTIVE
> #pragma omp for
> for (int i = 0; i < 10; ++i) {
> #pragma omp for // expected-error {{region cannot be closely nested
> inside 'for' region; perhaps you forget to enclose 'omp for' directive into
> a parallel region?}}
> @@ -350,6 +468,14 @@ void foo() {
> }
> }
> }
> +#pragma omp for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// SECTIONS DIRECTIVE
> #pragma omp sections
> {
> #pragma omp for // expected-error {{region cannot be closely nested
> inside 'sections' region; perhaps you forget to enclose 'omp for' directive
> into a parallel region?}}
> @@ -404,10 +530,20 @@ void foo() {
> }
> }
> }
> +#pragma omp sections
> + {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// SECTION DIRECTIVE
> #pragma omp section // expected-error {{orphaned 'omp section' directives
> are prohibited, it must be closely nested to a sections region}}
> {
> bar();
> }
> +
> +// SINGLE DIRECTIVE
> #pragma omp single
> {
> #pragma omp for // expected-error {{region cannot be closely nested
> inside 'single' region; perhaps you forget to enclose 'omp for' directive
> into a parallel region?}}
> @@ -457,6 +593,76 @@ void foo() {
> }
> }
> }
> +#pragma omp single
> + {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +
> +// PARALLEL FOR DIRECTIVE
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp for // expected-error {{region cannot be closely nested
> inside 'parallel for' region; perhaps you forget to enclose 'omp for'
> directive into a parallel region?}}
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp simd
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp sections // expected-error {{region cannot be closely nested
> inside 'parallel for' region; perhaps you forget to enclose 'omp sections'
> directive into a parallel region?}}
> + {
> + bar();
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp section // expected-error {{'omp section' directive must be
> closely nested to a sections region, not a parallel for region}}
> + {
> + bar();
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp single // expected-error {{region cannot be closely nested
> inside 'parallel for' region; perhaps you forget to enclose 'omp single'
> directive into a parallel region?}}
> + {
> + bar();
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel
> + {
> +#pragma omp single // OK
> + {
> + bar();
> + }
> +#pragma omp for // OK
> + for (int i = 0; i < 10; ++i)
> + ;
> +#pragma omp sections // OK
> + {
> + bar();
> + }
> + }
> + }
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + ;
> + }
> return foo<int>();
> }
>
>
> Added: cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp Mon Jul 7 08:01:15
> 2014
> @@ -0,0 +1,64 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ast-print %s | FileCheck %s
> +// RUN: %clang_cc1 -fopenmp=libiomp5 -x c++ -std=c++11 -emit-pch -o %t %s
> +// RUN: %clang_cc1 -fopenmp=libiomp5 -std=c++11 -include-pch %t
> -fsyntax-only -verify %s -ast-print | FileCheck %s
> +// expected-no-diagnostics
> +
> +#ifndef HEADER
> +#define HEADER
> +
> +void foo() {}
> +
> +template <class T, int N>
> +T tmain(T argc) {
> + T b = argc, c, d, e, f, h;
> + static T a;
> +// CHECK: static T a;
> + static T g;
> +#pragma omp threadprivate(g)
> +#pragma omp parallel for schedule(dynamic) default(none) copyin(g)
> + // CHECK: #pragma omp parallel for schedule(dynamic) default(none)
> copyin(g)
> + for (int i = 0; i < 2; ++i)
> + a = 2;
> +// CHECK-NEXT: for (int i = 0; i < 2; ++i)
> +// CHECK-NEXT: a = 2;
> +#pragma omp parallel for private(argc, b), firstprivate(c, d),
> lastprivate(d, f) collapse(N) schedule(static, N) ordered if (argc)
> num_threads(N) default(shared) shared(e) reduction(+ : h)
> + for (int i = 0; i < 10; ++i)
> + for (int j = 0; j < 10; ++j)
> + for (int j = 0; j < 10; ++j)
> + for (int j = 0; j < 10; ++j)
> + for (int j = 0; j < 10; ++j)
> + foo();
> + // CHECK-NEXT: #pragma omp parallel for private(argc,b)
> firstprivate(c,d) lastprivate(d,f) collapse(N) schedule(static, N) ordered
> if(argc) num_threads(N) default(shared) shared(e) reduction(+: h)
> + // CHECK-NEXT: for (int i = 0; i < 10; ++i)
> + // CHECK-NEXT: for (int j = 0; j < 10; ++j)
> + // CHECK-NEXT: for (int j = 0; j < 10; ++j)
> + // CHECK-NEXT: for (int j = 0; j < 10; ++j)
> + // CHECK-NEXT: for (int j = 0; j < 10; ++j)
> + // CHECK-NEXT: foo();
> + return T();
> +}
> +
> +int main(int argc, char **argv) {
> + int b = argc, c, d, e, f, h;
> + static int a;
> +// CHECK: static int a;
> + static float g;
> +#pragma omp threadprivate(g)
> +#pragma omp parallel for schedule(guided, argc) default(none) copyin(g)
> + // CHECK: #pragma omp parallel for schedule(guided, argc) default(none)
> copyin(g)
> + for (int i = 0; i < 2; ++i)
> + a = 2;
> +// CHECK-NEXT: for (int i = 0; i < 2; ++i)
> +// CHECK-NEXT: a = 2;
> +#pragma omp parallel for private(argc, b), firstprivate(argv, c),
> lastprivate(d, f) collapse(2) schedule(auto) ordered if (argc)
> num_threads(a) default(shared) shared(e) reduction(+ : h)
> + for (int i = 0; i < 10; ++i)
> + for (int j = 0; j < 10; ++j)
> + foo();
> + // CHECK-NEXT: #pragma omp parallel for private(argc,b)
> firstprivate(argv,c) lastprivate(d,f) collapse(2) schedule(auto) ordered
> if(argc) num_threads(a) default(shared) shared(e) reduction(+: h)
> + // CHECK-NEXT: for (int i = 0; i < 10; ++i)
> + // CHECK-NEXT: for (int j = 0; j < 10; ++j)
> + // CHECK-NEXT: foo();
> + return (tmain<int, 5>(argc) + tmain<char, 1>(argv[0][0]));
> +}
> +
> +#endif
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_ast_print.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,83 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note {{declared here}}
> +
> +template <class T, typename S, int N, int ST> // expected-note {{declared
> here}}
> +T tmain(T argc, S **argv) { //expected-note 2 {{declared here}}
> + #pragma omp parallel for collapse // expected-error {{expected '('
> after 'collapse'}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse ( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse () // expected-error {{expected
> expression}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +3 {{expected ')'}} expected-note at +3 {{to match this
> '('}}
> + // expected-error at +2 2 {{expression is not an integral constant
> expression}}
> + // expected-note at +1 2 {{read of non-const variable 'argc' is not
> allowed in a constant expression}}
> + #pragma omp parallel for collapse (argc
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +1 2 {{argument to 'collapse' clause must be a
> positive integer value}}
> + #pragma omp parallel for collapse (ST // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse (1)) // expected-warning {{extra
> tokens at the end of '#pragma omp parallel for' are ignored}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse ((ST > 0) ? 1 + ST : 2) //
> expected-note 2 {{as specified in 'collapse' clause}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> // expected-error 2 {{expected 2 for loops after '#pragma omp parallel
> for', but found only 1}}
> + // expected-error at +3 2 {{directive '#pragma omp parallel for' cannot
> contain more than one 'collapse' clause}}
> + // expected-error at +2 2 {{argument to 'collapse' clause must be a
> positive integer value}}
> + // expected-error at +1 2 {{expression is not an integral constant
> expression}}
> + #pragma omp parallel for collapse (foobool(argc)), collapse (true),
> collapse (-5)
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse (S) // expected-error {{'S' does not
> refer to a value}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +1 2 {{expression is not an integral constant
> expression}}
> + #pragma omp parallel for collapse (argv[1]=2) // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse (1)
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse (N) // expected-error {{argument to
> 'collapse' clause must be a positive integer value}}
> + for (T i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for collapse (2) // expected-note {{as specified
> in 'collapse' clause}}
> + foo(); // expected-error {{expected 2 for loops after '#pragma omp
> parallel for'}}
> + return argc;
> +}
> +
> +int main(int argc, char **argv) {
> + #pragma omp parallel for collapse // expected-error {{expected '('
> after 'collapse'}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for collapse ( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for collapse () // expected-error {{expected
> expression}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for collapse (4 // expected-error {{expected ')'}}
> expected-note {{to match this '('}} expected-note {{as specified in
> 'collapse' clause}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; //
> expected-error {{expected 4 for loops after '#pragma omp parallel for', but
> found only 1}}
> + #pragma omp parallel for collapse (2+2)) // expected-warning {{extra
> tokens at the end of '#pragma omp parallel for' are ignored}}
> expected-note {{as specified in 'collapse' clause}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; //
> expected-error {{expected 4 for loops after '#pragma omp parallel for', but
> found only 1}}
> + #pragma omp parallel for collapse (foobool(1) > 0 ? 1 : 2) //
> expected-error {{expression is not an integral constant expression}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + // expected-error at +3 {{expression is not an integral constant
> expression}}
> + // expected-error at +2 2 {{directive '#pragma omp parallel for' cannot
> contain more than one 'collapse' clause}}
> + // expected-error at +1 2 {{argument to 'collapse' clause must be a
> positive integer value}}
> + #pragma omp parallel for collapse (foobool(argc)), collapse (true),
> collapse (-5)
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for collapse (S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + // expected-error at +1 {{expression is not an integral constant
> expression}}
> + #pragma omp parallel for collapse (argv[1]=2) // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + // expected-error at +3 {{statement after '#pragma omp parallel for' must
> be a for loop}}
> + // expected-note at +1 {{in instantiation of function template
> specialization 'tmain<int, char, -1, -2>' requested here}}
> + #pragma omp parallel for collapse(collapse(tmain<int, char, -1,
> -2>(argc, argv) // expected-error 2 {{expected ')'}} expected-note 2 {{to
> match this '('}}
> + foo();
> + #pragma omp parallel for collapse (2) // expected-note {{as specified
> in 'collapse' clause}}
> + foo(); // expected-error {{expected 2 for loops after '#pragma omp
> parallel for'}}
> + // expected-note at +1 {{in instantiation of function template
> specialization 'tmain<int, char, 1, 0>' requested here}}
> + return tmain<int, char, 1, 0>(argc, argv);
> +}
> +
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_collapse_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,93 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 -o - %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note {{declared here}}
> +class S2 {
> + mutable int a;
> +
> +public:
> + S2() : a(0) {}
> + S2 &operator=(S2 &s2) { return *this; }
> +};
> +class S3 {
> + int a;
> +
> +public:
> + S3() : a(0) {}
> + S3 &operator=(S3 &s3) { return *this; }
> +};
> +class S4 { // expected-note {{'S4' declared here}}
> + int a;
> + S4();
> + S4 &operator=(const S4 &s4);
> +
> +public:
> + S4(int v) : a(v) {}
> +};
> +class S5 { // expected-note {{'S5' declared here}}
> + int a;
> + S5() : a(0) {}
> + S5 &operator=(const S5 &s5) { return *this; }
> +
> +public:
> + S5(int v) : a(v) {}
> +};
> +template <class T>
> +class ST {
> +public:
> + static T s;
> +};
> +
> +S2 k;
> +S3 h;
> +S4 l(3); // expected-note {{'l' defined here}}
> +S5 m(4); // expected-note {{'m' defined here}}
> +#pragma omp threadprivate(h, k, l, m)
> +
> +int main(int argc, char **argv) {
> + int i;
> +#pragma omp parallel for copyin // expected-error {{expected '(' after
> 'copyin'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin() // expected-error {{expected
> expression}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(k // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(h, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(l) // expected-error {{copyin variable
> must have an accessible, unambiguous copy assignment operator}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(S1) // expected-error {{'S1' does not
> refer to a value}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(argv[1]) // expected-error {{expected
> variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(i) // expected-error {{copyin variable
> must be threadprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(m) // expected-error {{copyin variable
> must have an accessible, unambiguous copy assignment operator}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for copyin(ST < int > ::s) // expected-error
> {{copyin variable must be threadprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +
> + return 0;
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_copyin_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,36 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 -o - %s
> +
> +void foo();
> +
> +int main(int argc, char **argv) {
> + int i;
> +#pragma omp parallel for default // expected-error {{expected '(' after
> 'default'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for default( // expected-error {{expected 'none' or
> 'shared' in OpenMP clause 'default'}} expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for default() // expected-error {{expected 'none' or
> 'shared' in OpenMP clause 'default'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for default(none // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) // expected-error {{variable 'argc' must
> have explicitly specified data sharing attributes}}
> + foo();
> +#pragma omp parallel for default(shared), default(shared) //
> expected-error {{directive '#pragma omp parallel for' cannot contain more
> than one 'default' clause}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for default(x) // expected-error {{expected 'none'
> or 'shared' in OpenMP clause 'default'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +
> +#pragma omp parallel for default(none)
> + for (i = 0; i < argc; ++i) // expected-error {{variable 'argc' must
> have explicitly specified data sharing attributes}}
> + foo();
> +
> +#pragma omp parallel default(none)
> +#pragma omp parallel for default(shared)
> + for (i = 0; i < argc; ++i)
> + foo();
> +
> + return 0;
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_default_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp Mon Jul
> 7 08:01:15 2014
> @@ -0,0 +1,252 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward
> declaration of 'S1'}}
> +extern S1 a;
> +class S2 {
> + mutable int a;
> +
> +public:
> + S2() : a(0) {}
> + S2(S2 &s2) : a(s2.a) {}
> + static float S2s;
> + static const float S2sc;
> +};
> +const float S2::S2sc = 0;
> +const S2 b;
> +const S2 ba[5];
> +class S3 {
> + int a;
> + S3 &operator=(const S3 &s3);
> +
> +public:
> + S3() : a(0) {}
> + S3(S3 &s3) : a(s3.a) {}
> +};
> +const S3 c;
> +const S3 ca[5];
> +extern const int f;
> +class S4 { // expected-note 2 {{'S4' declared here}}
> + int a;
> + S4();
> + S4(const S4 &s4);
> +
> +public:
> + S4(int v) : a(v) {}
> +};
> +class S5 { // expected-note 4 {{'S5' declared here}}
> + int a;
> + S5(const S5 &s5) : a(s5.a) {}
> +
> +public:
> + S5() : a(0) {}
> + S5(int v) : a(v) {}
> +};
> +class S6 {
> + int a;
> + S6() : a(0) {}
> +
> +public:
> + S6(const S6 &s6) : a(s6.a) {}
> + S6(int v) : a(v) {}
> +};
> +
> +S3 h;
> +#pragma omp threadprivate(h) // expected-note 2 {{defined as
> threadprivate or thread local}}
> +
> +template <class I, class C>
> +int foomain(int argc, char **argv) {
> + I e(4); // expected-note {{'e' defined here}}
> + C g(5); // expected-note 2 {{'g' defined here}}
> + int i;
> + int &j = i; // expected-note {{'j' defined here}}
> +#pragma omp parallel for firstprivate // expected-error {{expected '('
> after 'firstprivate'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate() // expected-error {{expected
> expression}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(argc)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(a, b) // expected-error
> {{firstprivate variable with incomplete type 'S1'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(argv[1]) // expected-error
> {{expected variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(e, g) // expected-error 2
> {{firstprivate variable must have an accessible, unambiguous copy
> constructor}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(h) // expected-error
> {{threadprivate or thread local variable cannot be firstprivate}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for linear(i) // expected-error {{unexpected OpenMP
> clause 'linear' in directive '#pragma omp parallel for'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel
> + {
> + int v = 0;
> + int i;
> +#pragma omp parallel for firstprivate(i)
> + for (int k = 0; k < argc; ++k) {
> + i = k;
> + v += i;
> + }
> + }
> +#pragma omp parallel shared(i)
> +#pragma omp parallel private(i)
> +#pragma omp parallel for firstprivate(j) // expected-error {{arguments of
> OpenMP clause 'firstprivate' cannot be of reference type}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for firstprivate(i)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(g) firstprivate(g) // expected-error
> {{firstprivate variable must have an accessible, unambiguous copy
> constructor}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel private(i)
> +#pragma omp parallel for firstprivate(i) // expected-note {{defined as
> firstprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable
> in the associated loop of 'omp parallel for' directive may not be
> firstprivate, predetermined as private}}
> + foo();
> +#pragma omp parallel reduction(+ : i)
> +#pragma omp parallel for firstprivate(i) // expected-note {{defined as
> firstprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable
> in the associated loop of 'omp parallel for' directive may not be
> firstprivate, predetermined as private}}
> + foo();
> + return 0;
> +}
> +
> +int main(int argc, char **argv) {
> + const int d = 5;
> + const int da[5] = {0};
> + S4 e(4); // expected-note {{'e' defined here}}
> + S5 g(5); // expected-note 2 {{'g' defined here}}
> + S3 m;
> + S6 n(2);
> + int i;
> + int &j = i; // expected-note {{'j' defined here}}
> +#pragma omp parallel for firstprivate // expected-error {{expected '('
> after 'firstprivate'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate() // expected-error {{expected
> expression}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(argc)
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(a, b, c, d, f) // expected-error
> {{firstprivate variable with incomplete type 'S1'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(argv[1]) // expected-error
> {{expected variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(2 * 2) // expected-error {{expected
> variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(ba) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(ca) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(da) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> + int xa;
> +#pragma omp parallel for firstprivate(xa) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(S2::S2s) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(S2::S2sc) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for safelen(5) // expected-error {{unexpected OpenMP
> clause 'safelen' in directive '#pragma omp parallel for'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(e, g) // expected-error 2
> {{firstprivate variable must have an accessible, unambiguous copy
> constructor}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(m) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(h) // expected-error
> {{threadprivate or thread local variable cannot be firstprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for private(xa), firstprivate(xa) // expected-error
> {{private variable cannot be firstprivate}} expected-note {{defined as
> private}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(i) // expected-note {{defined as
> firstprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration
> variable in the associated loop of 'omp parallel for' directive may not be
> firstprivate, predetermined as private}}
> + foo();
> +#pragma omp parallel shared(xa)
> +#pragma omp parallel for firstprivate(xa) // OK: may be firstprivate
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(j) // expected-error {{arguments of
> OpenMP clause 'firstprivate' cannot be of reference type}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(g) firstprivate(g) // expected-error
> {{firstprivate variable must have an accessible, unambiguous copy
> constructor}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(n) firstprivate(n) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel
> + {
> + int v = 0;
> + int i;
> +#pragma omp parallel for firstprivate(i)
> + for (int k = 0; k < argc; ++k) {
> + i = k;
> + v += i;
> + }
> + }
> +#pragma omp parallel private(i)
> +#pragma omp parallel for firstprivate(i) // expected-note {{defined as
> firstprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable
> in the associated loop of 'omp parallel for' directive may not be
> firstprivate, predetermined as private}}
> + foo();
> +#pragma omp parallel reduction(+ : i)
> +#pragma omp parallel for firstprivate(i) // expected-note {{defined as
> firstprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable
> in the associated loop of 'omp parallel for' directive may not be
> firstprivate, predetermined as private}}
> + foo();
> +
> + return foomain<S4, S5>(argc, argv); // expected-note {{in instantiation
> of function template specialization 'foomain<S4, S5>' requested here}}
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_firstprivate_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp Mon Jul 7 08:01:15
> 2014
> @@ -0,0 +1,69 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note {{declared here}}
> +
> +template <class T, class S> // expected-note {{declared here}}
> +int tmain(T argc, S **argv) {
> + T i;
> + #pragma omp parallel for if // expected-error {{expected '(' after
> 'if'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if ( // expected-error {{expected expression}}
> expected-error {{expected ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if () // expected-error {{expected expression}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc)) // expected-warning {{extra tokens
> at the end of '#pragma omp parallel for' are ignored}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc > 0 ? argv[1] : argv[2])
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (foobool(argc)), if (true) //
> expected-error {{directive '#pragma omp parallel for' cannot contain more
> than one 'if' clause}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (S) // expected-error {{'S' does not refer
> to a value}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argv[1]=2) // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc argc) // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if(argc)
> + for (i = 0; i < argc; ++i) foo();
> +
> + return 0;
> +}
> +
> +int main(int argc, char **argv) {
> + int i;
> + #pragma omp parallel for if // expected-error {{expected '(' after
> 'if'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if ( // expected-error {{expected expression}}
> expected-error {{expected ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if () // expected-error {{expected expression}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc)) // expected-warning {{extra tokens
> at the end of '#pragma omp parallel for' are ignored}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc > 0 ? argv[1] : argv[2])
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (foobool(argc)), if (true) //
> expected-error {{directive '#pragma omp parallel for' cannot contain more
> than one 'if' clause}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (S1) // expected-error {{'S1' does not
> refer to a value}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argv[1]=2) // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (argc argc) // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if (1 0) // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for if(if(tmain(argc, argv) // expected-error
> {{expected expression}} expected-error {{expected ')'}} expected-note {{to
> match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> +
> + return tmain(argc, argv);
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_if_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,226 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward
> declaration of 'S1'}}
> +extern S1 a;
> +class S2 {
> + mutable int a;
> +
> +public:
> + S2() : a(0) {}
> + S2(S2 &s2) : a(s2.a) {}
> + static float S2s; // expected-note {{static data member is
> predetermined as shared}}
> + static const float S2sc;
> +};
> +const float S2::S2sc = 0; // expected-note {{static data member is
> predetermined as shared}}
> +const S2 b;
> +const S2 ba[5];
> +class S3 { // expected-note 2 {{'S3' declared here}}
> + int a;
> + S3 &operator=(const S3 &s3);
> +
> +public:
> + S3() : a(0) {}
> + S3(S3 &s3) : a(s3.a) {}
> +};
> +const S3 c; // expected-note {{global variable is predetermined
> as shared}}
> +const S3 ca[5]; // expected-note {{global variable is predetermined
> as shared}}
> +extern const int f; // expected-note {{global variable is predetermined
> as shared}}
> +class S4 { // expected-note 3 {{'S4' declared here}}
> + int a;
> + S4();
> + S4(const S4 &s4);
> +
> +public:
> + S4(int v) : a(v) {}
> +};
> +class S5 { // expected-note {{'S5' declared here}}
> + int a;
> + S5() : a(0) {}
> +
> +public:
> + S5(const S5 &s5) : a(s5.a) {}
> + S5(int v) : a(v) {}
> +};
> +class S6 {
> + int a;
> + S6() : a(0) {}
> +
> +public:
> + S6(const S6 &s6) : a(s6.a) {}
> + S6(int v) : a(v) {}
> +};
> +
> +S3 h;
> +#pragma omp threadprivate(h) // expected-note 2 {{defined as
> threadprivate or thread local}}
> +
> +template <class I, class C>
> +int foomain(int argc, char **argv) {
> + I e(4); // expected-note {{'e' defined here}}
> + I g(5); // expected-note {{'g' defined here}}
> + int i;
> + int &j = i; // expected-note {{'j' defined here}}
> +#pragma omp parallel for lastprivate // expected-error {{expected '('
> after 'lastprivate'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate() // expected-error {{expected
> expression}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(argc)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(a, b) // expected-error
> {{lastprivate variable with incomplete type 'S1'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(argv[1]) // expected-error
> {{expected variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(e, g) // expected-error 2
> {{lastprivate variable must have an accessible, unambiguous default
> constructor}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(h) // expected-error {{threadprivate
> or thread local variable cannot be lastprivate}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for linear(i) // expected-error {{unexpected OpenMP
> clause 'linear' in directive '#pragma omp parallel for'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel
> + {
> + int v = 0;
> + int i;
> +#pragma omp parallel for lastprivate(i)
> + for (int k = 0; k < argc; ++k) {
> + i = k;
> + v += i;
> + }
> + }
> +#pragma omp parallel shared(i)
> +#pragma omp parallel private(i)
> +#pragma omp parallel for lastprivate(j) // expected-error {{arguments of
> OpenMP clause 'lastprivate' cannot be of reference type}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for lastprivate(i)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> + return 0;
> +}
> +
> +int main(int argc, char **argv) {
> + const int d = 5; // expected-note {{constant variable is
> predetermined as shared}}
> + const int da[5] = {0}; // expected-note {{constant variable is
> predetermined as shared}}
> + S4 e(4); // expected-note {{'e' defined here}}
> + S5 g(5); // expected-note {{'g' defined here}}
> + S3 m; // expected-note 2 {{'m' defined here}}
> + S6 n(2);
> + int i;
> + int &j = i; // expected-note {{'j' defined here}}
> +#pragma omp parallel for lastprivate // expected-error {{expected '('
> after 'lastprivate'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate() // expected-error {{expected
> expression}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(argc)
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(a, b, c, d, f) // expected-error
> {{lastprivate variable with incomplete type 'S1'}} expected-error 3
> {{shared variable cannot be lastprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(argv[1]) // expected-error
> {{expected variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(2 * 2) // expected-error {{expected
> variable name}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(ba)
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(ca) // expected-error {{shared
> variable cannot be lastprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(da) // expected-error {{shared
> variable cannot be lastprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> + int xa;
> +#pragma omp parallel for lastprivate(xa) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(S2::S2s) // expected-error {{shared
> variable cannot be lastprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(S2::S2sc) // expected-error {{shared
> variable cannot be lastprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for safelen(5) // expected-error {{unexpected OpenMP
> clause 'safelen' in directive '#pragma omp parallel for'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(e, g) // expected-error 2
> {{lastprivate variable must have an accessible, unambiguous default
> constructor}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(m) // expected-error {{lastprivate
> variable must have an accessible, unambiguous copy assignment operator}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(h) // expected-error {{threadprivate
> or thread local variable cannot be lastprivate}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for private(xa), lastprivate(xa) // expected-error
> {{private variable cannot be lastprivate}} expected-note {{defined as
> private}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(i)
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel private(xa)
> +#pragma omp parallel for lastprivate(xa)
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel reduction(+ : xa)
> +#pragma omp parallel for lastprivate(xa)
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(j) // expected-error {{arguments of
> OpenMP clause 'lastprivate' cannot be of reference type}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for firstprivate(m) lastprivate(m) // expected-error
> {{lastprivate variable must have an accessible, unambiguous copy assignment
> operator}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for lastprivate(n) firstprivate(n) // OK
> + for (i = 0; i < argc; ++i)
> + foo();
> + return foomain<S4, S5>(argc, argv); // expected-note {{in instantiation
> of function template specialization 'foomain<S4, S5>' requested here}}
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_lastprivate_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,593 @@
> +// RUN: %clang_cc1 -fsyntax-only -fopenmp=libiomp5 -x c++ -std=c++11
> -fexceptions -fcxx-exceptions -verify %s
> +
> +class S {
> + int a;
> + S() : a(0) {}
> +
> +public:
> + S(int v) : a(v) {}
> + S(const S &s) : a(s.a) {}
> +};
> +
> +static int sii;
> +#pragma omp threadprivate(sii) // expected-note {{defined as
> threadprivate or thread local}}
> +
> +int test_iteration_spaces() {
> + const int N = 100;
> + float a[N], b[N], c[N];
> + int ii, jj, kk;
> + float fii;
> + double dii;
> +#pragma omp parallel for
> + for (int i = 0; i < 10; i += 1) {
> + c[i] = a[i] + b[i];
> + }
> +#pragma omp parallel for
> + for (char i = 0; i < 10; i++) {
> + c[i] = a[i] + b[i];
> + }
> +#pragma omp parallel for
> + for (char i = 0; i < 10; i += '\1') {
> + c[i] = a[i] + b[i];
> + }
> +#pragma omp parallel for
> + for (long long i = 0; i < 10; i++) {
> + c[i] = a[i] + b[i];
> + }
> +// expected-error at +2 {{expression must have integral or unscoped
> enumeration type, not 'double'}}
> +#pragma omp parallel for
> + for (long long i = 0; i < 10; i += 1.5) {
> + c[i] = a[i] + b[i];
> + }
> +#pragma omp parallel for
> + for (long long i = 0; i < 'z'; i += 1u) {
> + c[i] = a[i] + b[i];
> + }
> +// expected-error at +2 {{variable must be of integer or random access
> iterator type}}
> +#pragma omp parallel for
> + for (float fi = 0; fi < 10.0; fi++) {
> + c[(int)fi] = a[(int)fi] + b[(int)fi];
> + }
> +// expected-error at +2 {{variable must be of integer or random access
> iterator type}}
> +#pragma omp parallel for
> + for (double fi = 0; fi < 10.0; fi++) {
> + c[(int)fi] = a[(int)fi] + b[(int)fi];
> + }
> +// expected-error at +2 {{variable must be of integer or random access
> iterator type}}
> +#pragma omp parallel for
> + for (int &ref = ii; ref < 10; ref++) {
> + }
> +// expected-error at +2 {{initialization clause of OpenMP for loop must be
> of the form 'var = init' or 'T var = init'}}
> +#pragma omp parallel for
> + for (int i; i < 10; i++)
> + c[i] = a[i];
> +
> +// expected-error at +2 {{initialization clause of OpenMP for loop must be
> of the form 'var = init' or 'T var = init'}}
> +#pragma omp parallel for
> + for (int i = 0, j = 0; i < 10; ++i)
> + c[i] = a[i];
> +
> +// expected-error at +2 {{initialization clause of OpenMP for loop must be
> of the form 'var = init' or 'T var = init'}}
> +#pragma omp parallel for
> + for (; ii < 10; ++ii)
> + c[ii] = a[ii];
> +
> +// expected-warning at +3 {{expression result unused}}
> +// expected-error at +2 {{initialization clause of OpenMP for loop must be
> of the form 'var = init' or 'T var = init'}}
> +#pragma omp parallel for
> + for (ii + 1; ii < 10; ++ii)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{initialization clause of OpenMP for loop must be
> of the form 'var = init' or 'T var = init'}}
> +#pragma omp parallel for
> + for (c[ii] = 0; ii < 10; ++ii)
> + c[ii] = a[ii];
> +
> +// Ok to skip parenthesises.
> +#pragma omp parallel for
> + for (((ii)) = 0; ii < 10; ++ii)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'i'}}
> +#pragma omp parallel for
> + for (int i = 0; i; i++)
> + c[i] = a[i];
> +
> +// expected-error at +3 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'i'}}
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'i'}}
> +#pragma omp parallel for
> + for (int i = 0; jj < kk; ii++)
> + c[i] = a[i];
> +
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'i'}}
> +#pragma omp parallel for
> + for (int i = 0; !!i; i++)
> + c[i] = a[i];
> +
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'i'}}
> +#pragma omp parallel for
> + for (int i = 0; i != 1; i++)
> + c[i] = a[i];
> +
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'i'}}
> +#pragma omp parallel for
> + for (int i = 0;; i++)
> + c[i] = a[i];
> +
> +// Ok.
> +#pragma omp parallel for
> + for (int i = 11; i > 10; i--)
> + c[i] = a[i];
> +
> +// Ok.
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i)
> + c[i] = a[i];
> +
> +// Ok.
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ++ii)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ++jj)
> + c[ii] = a[jj];
> +
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ++++ii)
> + c[ii] = a[ii];
> +
> +// Ok but undefined behavior (in general, cannot check that incr
> +// is really loop-invariant).
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii = ii + ii)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{expression must have integral or unscoped
> enumeration type, not 'float'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii = ii + 1.0f)
> + c[ii] = a[ii];
> +
> +// Ok - step was converted to integer type.
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii = ii + (int)1.1f)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; jj = ii + 2)
> + c[ii] = a[ii];
> +
> +// expected-warning at +3 {{relational comparison result unused}}
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii<10; jj> kk + 2)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10;)
> + c[ii] = a[ii];
> +
> +// expected-warning at +3 {{expression result unused}}
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; !ii)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii ? ++ii : ++jj)
> + c[ii] = a[ii];
> +
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'ii'}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii = ii < 10)
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii = ii + 0)
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; ii = ii + (int)(0.8 - 0.45))
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; (ii) < 10; ii -= 25)
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; (ii < 10); ii -= 0)
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; ii > 10; (ii += 0))
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; ii < 10; (ii) = (1 - 1) + (ii))
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for ((ii = 0); ii > 10; (ii -= 0))
> + c[ii] = a[ii];
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'ii' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (ii = 0; (ii < 10); (ii -= 0))
> + c[ii] = a[ii];
> +
> +// expected-note at +2 {{defined as firstprivate}}
> +// expected-error at +2 {{loop iteration variable in the associated loop of
> 'omp parallel for' directive may not be firstprivate, predetermined as
> private}}
> +#pragma omp parallel for firstprivate(ii)
> + for (ii = 0; ii < 10; ii++)
> + c[ii] = a[ii];
> +
> +// expected-error at +3 {{unexpected OpenMP clause 'linear' in directive
> '#pragma omp parallel for'}}
> +// expected-note at +2 {{defined as linear}}
> +// expected-error at +2 {{loop iteration variable in the associated loop of
> 'omp parallel for' directive may not be linear, predetermined as private}}
> +#pragma omp parallel for linear(ii)
> + for (ii = 0; ii < 10; ii++)
> + c[ii] = a[ii];
> +
> +#pragma omp parallel for private(ii)
> + for (ii = 0; ii < 10; ii++)
> + c[ii] = a[ii];
> +
> +#pragma omp parallel for lastprivate(ii)
> + for (ii = 0; ii < 10; ii++)
> + c[ii] = a[ii];
> +
> + {
> +// expected-error at +2 {{loop iteration variable in the associated loop of
> 'omp parallel for' directive may not be threadprivate or thread local,
> predetermined as private}}
> +#pragma omp parallel for
> + for (sii = 0; sii < 10; sii += 1)
> + c[sii] = a[sii];
> + }
> +
> +// expected-error at +2 {{statement after '#pragma omp parallel for' must
> be a for loop}}
> +#pragma omp parallel for
> + for (auto &item : a) {
> + item = item + 1;
> + }
> +
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'i' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (unsigned i = 9; i < 10; i--) {
> + c[i] = a[i] + b[i];
> + }
> +
> + int(*lb)[4] = nullptr;
> +#pragma omp parallel for
> + for (int(*p)[4] = lb; p < lb + 8; ++p) {
> + }
> +
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (int a{0}; a < 10; ++a) {
> + }
> +
> + return 0;
> +}
> +
> +// Iterators allowed in openmp for-loops.
> +namespace std {
> +struct random_access_iterator_tag {};
> +template <class Iter>
> +struct iterator_traits {
> + typedef typename Iter::difference_type difference_type;
> + typedef typename Iter::iterator_category iterator_category;
> +};
> +template <class Iter>
> +typename iterator_traits<Iter>::difference_type
> +distance(Iter first, Iter last) { return first - last; }
> +}
> +class Iter0 {
> +public:
> + Iter0() {}
> + Iter0(const Iter0 &) {}
> + Iter0 operator++() { return *this; }
> + Iter0 operator--() { return *this; }
> + bool operator<(Iter0 a) { return true; }
> +};
> +int operator-(Iter0 a, Iter0 b) { return 0; }
> +class Iter1 {
> +public:
> + Iter1(float f = 0.0f, double d = 0.0) {}
> + Iter1(const Iter1 &) {}
> + Iter1 operator++() { return *this; }
> + Iter1 operator--() { return *this; }
> + bool operator<(Iter1 a) { return true; }
> + bool operator>=(Iter1 a) { return false; }
> +};
> +class GoodIter {
> +public:
> + GoodIter() {}
> + GoodIter(const GoodIter &) {}
> + GoodIter(int fst, int snd) {}
> + GoodIter &operator=(const GoodIter &that) { return *this; }
> + GoodIter &operator=(const Iter0 &that) { return *this; }
> + GoodIter &operator+=(int x) { return *this; }
> + explicit GoodIter(void *) {}
> + GoodIter operator++() { return *this; }
> + GoodIter operator--() { return *this; }
> + bool operator!() { return true; }
> + bool operator<(GoodIter a) { return true; }
> + bool operator<=(GoodIter a) { return true; }
> + bool operator>=(GoodIter a) { return false; }
> + typedef int difference_type;
> + typedef std::random_access_iterator_tag iterator_category;
> +};
> +int operator-(GoodIter a, GoodIter b) { return 0; }
> +GoodIter operator-(GoodIter a) { return a; }
> +GoodIter operator-(GoodIter a, int v) { return GoodIter(); }
> +GoodIter operator+(GoodIter a, int v) { return GoodIter(); }
> +GoodIter operator-(int v, GoodIter a) { return GoodIter(); }
> +GoodIter operator+(int v, GoodIter a) { return GoodIter(); }
> +
> +int test_with_random_access_iterator() {
> + GoodIter begin, end;
> + Iter0 begin0, end0;
> +#pragma omp parallel for
> + for (GoodIter I = begin; I < end; ++I)
> + ++I;
> +// expected-error at +2 {{variable must be of integer or random access
> iterator type}}
> +#pragma omp parallel for
> + for (GoodIter &I = begin; I < end; ++I)
> + ++I;
> +#pragma omp parallel for
> + for (GoodIter I = begin; I >= end; --I)
> + ++I;
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (GoodIter I(begin); I < end; ++I)
> + ++I;
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (GoodIter I(nullptr); I < end; ++I)
> + ++I;
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (GoodIter I(0); I < end; ++I)
> + ++I;
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (GoodIter I(1, 2); I < end; ++I)
> + ++I;
> +#pragma omp parallel for
> + for (begin = GoodIter(0); begin < end; ++begin)
> + ++begin;
> +#pragma omp parallel for
> + for (begin = begin0; begin < end; ++begin)
> + ++begin;
> +// expected-error at +2 {{initialization clause of OpenMP for loop must be
> of the form 'var = init' or 'T var = init'}}
> +#pragma omp parallel for
> + for (++begin; begin < end; ++begin)
> + ++begin;
> +#pragma omp parallel for
> + for (begin = end; begin < end; ++begin)
> + ++begin;
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'I'}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; I - I; ++I)
> + ++I;
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'I'}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; begin < end; ++I)
> + ++I;
> +// expected-error at +2 {{condition of OpenMP for loop must be a relational
> comparison ('<', '<=', '>', or '>=') of loop variable 'I'}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; !I; ++I)
> + ++I;
> +// expected-note at +3 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'I' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; I >= end; I = I + 1)
> + ++I;
> +#pragma omp parallel for
> + for (GoodIter I = begin; I >= end; I = I - 1)
> + ++I;
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'I'}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; I >= end; I = -I)
> + ++I;
> +// expected-note at +3 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'I' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; I >= end; I = 2 + I)
> + ++I;
> +// expected-error at +2 {{increment clause of OpenMP for loop must perform
> simple addition or subtraction on loop variable 'I'}}
> +#pragma omp parallel for
> + for (GoodIter I = begin; I >= end; I = 2 - I)
> + ++I;
> +#pragma omp parallel for
> + for (Iter0 I = begin0; I < end0; ++I)
> + ++I;
> +// Initializer is constructor without params.
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (Iter0 I; I < end0; ++I)
> + ++I;
> + Iter1 begin1, end1;
> +#pragma omp parallel for
> + for (Iter1 I = begin1; I < end1; ++I)
> + ++I;
> +// expected-note at +3 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'I' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (Iter1 I = begin1; I >= end1; ++I)
> + ++I;
> +// Initializer is constructor with all default params.
> +// expected-warning at +2 {{initialization clause of OpenMP for loop is not
> in canonical form ('var = init' or 'T var = init')}}
> +#pragma omp parallel for
> + for (Iter1 I; I < end1; ++I) {
> + }
> + return 0;
> +}
> +
> +template <typename IT, int ST>
> +class TC {
> +public:
> + int dotest_lt(IT begin, IT end) {
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'I' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (IT I = begin; I < end; I = I + ST) {
> + ++I;
> + }
> +// expected-note at +3 {{loop step is expected to be positive due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'I' to increase
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (IT I = begin; I <= end; I += ST) {
> + ++I;
> + }
> +#pragma omp parallel for
> + for (IT I = begin; I < end; ++I) {
> + ++I;
> + }
> + }
> +
> + static IT step() {
> + return IT(ST);
> + }
> +};
> +template <typename IT, int ST = 0>
> +int dotest_gt(IT begin, IT end) {
> +// expected-note at +3 2 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 2 {{increment expression must cause 'I' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (IT I = begin; I >= end; I = I + ST) {
> + ++I;
> + }
> +// expected-note at +3 2 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 2 {{increment expression must cause 'I' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (IT I = begin; I >= end; I += ST) {
> + ++I;
> + }
> +
> +// expected-note at +3 {{loop step is expected to be negative due to this
> condition}}
> +// expected-error at +2 {{increment expression must cause 'I' to decrease
> on each iteration of OpenMP for loop}}
> +#pragma omp parallel for
> + for (IT I = begin; I >= end; ++I) {
> + ++I;
> + }
> +
> +#pragma omp parallel for
> + for (IT I = begin; I < end; I += TC<int, ST>::step()) {
> + ++I;
> + }
> +}
> +
> +void test_with_template() {
> + GoodIter begin, end;
> + TC<GoodIter, 100> t1;
> + TC<GoodIter, -100> t2;
> + t1.dotest_lt(begin, end);
> + t2.dotest_lt(begin, end); // expected-note {{in instantiation
> of member function 'TC<GoodIter, -100>::dotest_lt' requested here}}
> + dotest_gt(begin, end); // expected-note {{in instantiation
> of function template specialization 'dotest_gt<GoodIter, 0>' requested
> here}}
> + dotest_gt<unsigned, -10>(0, 100); // expected-note {{in instantiation
> of function template specialization 'dotest_gt<unsigned int, -10>'
> requested here}}
> +}
> +
> +void test_loop_break() {
> + const int N = 100;
> + float a[N], b[N], c[N];
> +#pragma omp parallel for
> + for (int i = 0; i < 10; i++) {
> + c[i] = a[i] + b[i];
> + for (int j = 0; j < 10; ++j) {
> + if (a[i] > b[j])
> + break; // OK in nested loop
> + }
> + switch (i) {
> + case 1:
> + b[i]++;
> + break;
> + default:
> + break;
> + }
> + if (c[i] > 10)
> + break; // expected-error {{'break' statement cannot be used in
> OpenMP for loop}}
> +
> + if (c[i] > 11)
> + break; // expected-error {{'break' statement cannot be used in
> OpenMP for loop}}
> + }
> +
> +#pragma omp parallel for
> + for (int i = 0; i < 10; i++) {
> + for (int j = 0; j < 10; j++) {
> + c[i] = a[i] + b[i];
> + if (c[i] > 10) {
> + if (c[i] < 20) {
> + break; // OK
> + }
> + }
> + }
> + }
> +}
> +
> +void test_loop_eh() {
> + const int N = 100;
> + float a[N], b[N], c[N];
> +#pragma omp parallel for
> + for (int i = 0; i < 10; i++) {
> + c[i] = a[i] + b[i];
> + try {
> + for (int j = 0; j < 10; ++j) {
> + if (a[i] > b[j])
> + throw a[i];
> + }
> + throw a[i];
> + } catch (float f) {
> + if (f > 0.1)
> + throw a[i];
> + return; // expected-error {{cannot return from OpenMP region}}
> + }
> + switch (i) {
> + case 1:
> + b[i]++;
> + break;
> + default:
> + break;
> + }
> + for (int j = 0; j < 10; j++) {
> + if (c[i] > 10)
> + throw c[i];
> + }
> + }
> + if (c[9] > 10)
> + throw c[9]; // OK
> +
> +#pragma omp parallel for
> + for (int i = 0; i < 10; ++i) {
> + struct S {
> + void g() { throw 0; }
> + };
> + }
> +}
> +
> +void test_loop_firstprivate_lastprivate() {
> + S s(4);
> +#pragma omp parallel for lastprivate(s) firstprivate(s)
> + for (int i = 0; i < 16; ++i)
> + ;
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_loop_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_messages.cpp Mon Jul 7 08:01:15
> 2014
> @@ -0,0 +1,70 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 -std=c++11
> -o - %s
> +
> +void foo() {
> +}
> +
> +#pragma omp parallel for // expected-error {{unexpected OpenMP directive
> '#pragma omp parallel for'}}
> +
> +int main(int argc, char **argv) {
> + #pragma omp parallel for { // expected-warning {{extra tokens at the
> end of '#pragma omp parallel for' are ignored}}
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for ( // expected-warning {{extra tokens at the
> end of '#pragma omp parallel for' are ignored}}
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for [ // expected-warning {{extra tokens at the
> end of '#pragma omp parallel for' are ignored}}
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for ] // expected-warning {{extra tokens at the
> end of '#pragma omp parallel for' are ignored}}
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for ) // expected-warning {{extra tokens at the
> end of '#pragma omp parallel for' are ignored}}
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for } // expected-warning {{extra tokens at the
> end of '#pragma omp parallel for' are ignored}}
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for
> + for(int i = 0; i < argc; ++i) foo();
> + // expected-warning at +1 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> + #pragma omp parallel for unknown()
> + for(int i = 0; i < argc; ++i) foo();
> + L1:
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for
> + for(int i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for
> + for(int i = 0; i < argc; ++i)
> + {
> + goto L1; // expected-error {{use of undeclared label 'L1'}}
> + argc++;
> + }
> +
> + for (int i = 0; i < 10; ++i) {
> + switch(argc) {
> + case (0):
> + #pragma omp parallel for
> + for(int i = 0; i < argc; ++i)
> + {
> + foo();
> + break; // expected-error {{'break' statement cannot be used in
> OpenMP for loop}}
> + continue;
> + }
> + default:
> + break;
> + }
> + }
> + #pragma omp parallel for default(none)
> + for (int i = 0; i < 10; ++i)
> + ++argc; // expected-error {{variable 'argc' must have explicitly
> specified data sharing attributes}}
> +
> + goto L2; // expected-error {{use of undeclared label 'L2'}}
> + #pragma omp parallel for
> + for(int i = 0; i < argc; ++i) L2:foo();
> + #pragma omp parallel for
> + for(int i = 0; i < argc; ++i)
> + {
> + return 1; // expected-error {{cannot return from OpenMP region}}
> + }
> +
> + [[]] // expected-error {{an attribute list cannot appear here}}
> + #pragma omp parallel for
> + for (int n = 0; n < 100; ++n) {}
> +
> + return 0;
> +}
> +
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_misc_messages.c
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_misc_messages.c?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_misc_messages.c (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_misc_messages.c Mon Jul 7 08:01:15
> 2014
> @@ -0,0 +1,309 @@
> +// RUN: %clang_cc1 -fsyntax-only -fopenmp=libiomp5 -verify %s
> +
> +// expected-error at +1 {{unexpected OpenMP directive '#pragma omp parallel
> for'}}
> +#pragma omp parallel for
> +
> +// expected-error at +1 {{unexpected OpenMP directive '#pragma omp parallel
> for'}}
> +#pragma omp parallel for foo
> +
> +void test_no_clause() {
> + int i;
> +#pragma omp parallel for
> + for (i = 0; i < 16; ++i)
> + ;
> +
> +// expected-error at +2 {{statement after '#pragma omp parallel for' must
> be a for loop}}
> +#pragma omp parallel for
> + ++i;
> +}
> +
> +void test_branch_protected_scope() {
> + int i = 0;
> +L1:
> + ++i;
> +
> + int x[24];
> +
> +#pragma omp parallel for
> + for (i = 0; i < 16; ++i) {
> + if (i == 5)
> + goto L1; // expected-error {{use of undeclared label 'L1'}}
> + else if (i == 6)
> + return; // expected-error {{cannot return from OpenMP region}}
> + else if (i == 7)
> + goto L2;
> + else if (i == 8) {
> + L2:
> + x[i]++;
> + }
> + }
> +
> + if (x[0] == 0)
> + goto L2; // expected-error {{use of undeclared label 'L2'}}
> + else if (x[1] == 1)
> + goto L1;
> +}
> +
> +void test_invalid_clause() {
> + int i;
> +// expected-warning at +1 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> +#pragma omp parallel for foo bar
> + for (i = 0; i < 16; ++i)
> + ;
> +}
> +
> +void test_non_identifiers() {
> + int i, x;
> +
> +// expected-warning at +1 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> +#pragma omp parallel for;
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +2 {{unexpected OpenMP clause 'linear' in directive
> '#pragma omp parallel for'}}
> +// expected-warning at +1 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> +#pragma omp parallel for linear(x);
> + for (i = 0; i < 16; ++i)
> + ;
> +
> +// expected-warning at +1 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> +#pragma omp parallel for private(x);
> + for (i = 0; i < 16; ++i)
> + ;
> +
> +// expected-warning at +1 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> +#pragma omp parallel for, private(x);
> + for (i = 0; i < 16; ++i)
> + ;
> +}
> +
> +extern int foo();
> +
> +void test_collapse() {
> + int i;
> +// expected-error at +1 {{expected '('}}
> +#pragma omp parallel for collapse
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}} expected-error at +1
> {{expected ')'}} expected-note at +1 {{to match this '('}}
> +#pragma omp parallel for collapse(
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for collapse()
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}} expected-error at +1
> {{expected ')'}} expected-note at +1 {{to match this '('}}
> +#pragma omp parallel for collapse(,
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}} expected-error at +1
> {{expected ')'}} expected-note at +1 {{to match this '('}}
> +#pragma omp parallel for collapse(, )
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-warning at +2 {{extra tokens at the end of '#pragma omp
> parallel for' are ignored}}
> +// expected-error at +1 {{expected '('}}
> +#pragma omp parallel for collapse 4)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +2 {{expected ')'}}
> +// expected-note at +1 {{to match this '('}} expected-note at +1 {{as
> specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +// expected-error at +2 {{expected ')'}}
> +// expected-note at +1 {{to match this '('}} expected-note at +1 {{as
> specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4,
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +// expected-error at +2 {{expected ')'}}
> +// expected-note at +1 {{to match this '('}} expected-note at +1 {{as
> specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4, )
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +// expected-note at +1 {{as specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4)
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +// expected-error at +2 {{expected ')'}}
> +// expected-note at +1 {{to match this '('}} expected-note at +1 {{as
> specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4 4)
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +// expected-error at +2 {{expected ')'}}
> +// expected-note at +1 {{to match this '('}} expected-note at +1 {{as
> specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4, , 4)
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +#pragma omp parallel for collapse(4)
> + for (int i1 = 0; i1 < 16; ++i1)
> + for (int i2 = 0; i2 < 16; ++i2)
> + for (int i3 = 0; i3 < 16; ++i3)
> + for (int i4 = 0; i4 < 16; ++i4)
> + foo();
> +// expected-error at +2 {{expected ')'}}
> +// expected-note at +1 {{to match this '('}} expected-note at +1 {{as
> specified in 'collapse' clause}}
> +#pragma omp parallel for collapse(4, 8)
> + for (i = 0; i < 16; ++i)
> + ; // expected-error {{expected 4 for loops after '#pragma omp
> parallel for', but found only 1}}
> +// expected-error at +1 {{expression is not an integer constant expression}}
> +#pragma omp parallel for collapse(2.5)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expression is not an integer constant expression}}
> +#pragma omp parallel for collapse(foo())
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{argument to 'collapse' clause must be a positive
> integer value}}
> +#pragma omp parallel for collapse(-5)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{argument to 'collapse' clause must be a positive
> integer value}}
> +#pragma omp parallel for collapse(0)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{argument to 'collapse' clause must be a positive
> integer value}}
> +#pragma omp parallel for collapse(5 - 5)
> + for (i = 0; i < 16; ++i)
> + ;
> +}
> +
> +void test_private() {
> + int i;
> +// expected-error at +2 {{expected expression}}
> +// expected-error at +1 {{expected ')'}} expected-note at +1 {{to match this
> '('}}
> +#pragma omp parallel for private(
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +2 {{expected ')'}} expected-note at +2 {{to match this
> '('}}
> +// expected-error at +1 2 {{expected expression}}
> +#pragma omp parallel for private(,
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 2 {{expected expression}}
> +#pragma omp parallel for private(, )
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for private()
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for private(int)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected variable name}}
> +#pragma omp parallel for private(0)
> + for (i = 0; i < 16; ++i)
> + ;
> +
> + int x, y, z;
> +#pragma omp parallel for private(x)
> + for (i = 0; i < 16; ++i)
> + ;
> +#pragma omp parallel for private(x, y)
> + for (i = 0; i < 16; ++i)
> + ;
> +#pragma omp parallel for private(x, y, z)
> + for (i = 0; i < 16; ++i) {
> + x = y * i + z;
> + }
> +}
> +
> +void test_lastprivate() {
> + int i;
> +// expected-error at +2 {{expected ')'}} expected-note at +2 {{to match this
> '('}}
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for lastprivate(
> + for (i = 0; i < 16; ++i)
> + ;
> +
> +// expected-error at +2 {{expected ')'}} expected-note at +2 {{to match this
> '('}}
> +// expected-error at +1 2 {{expected expression}}
> +#pragma omp parallel for lastprivate(,
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 2 {{expected expression}}
> +#pragma omp parallel for lastprivate(, )
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for lastprivate()
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for lastprivate(int)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected variable name}}
> +#pragma omp parallel for lastprivate(0)
> + for (i = 0; i < 16; ++i)
> + ;
> +
> + int x, y, z;
> +#pragma omp parallel for lastprivate(x)
> + for (i = 0; i < 16; ++i)
> + ;
> +#pragma omp parallel for lastprivate(x, y)
> + for (i = 0; i < 16; ++i)
> + ;
> +#pragma omp parallel for lastprivate(x, y, z)
> + for (i = 0; i < 16; ++i)
> + ;
> +}
> +
> +void test_firstprivate() {
> + int i;
> +// expected-error at +2 {{expected ')'}} expected-note at +2 {{to match this
> '('}}
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for firstprivate(
> + for (i = 0; i < 16; ++i)
> + ;
> +
> +// expected-error at +2 {{expected ')'}} expected-note at +2 {{to match this
> '('}}
> +// expected-error at +1 2 {{expected expression}}
> +#pragma omp parallel for firstprivate(,
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 2 {{expected expression}}
> +#pragma omp parallel for firstprivate(, )
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for firstprivate()
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected expression}}
> +#pragma omp parallel for firstprivate(int)
> + for (i = 0; i < 16; ++i)
> + ;
> +// expected-error at +1 {{expected variable name}}
> +#pragma omp parallel for firstprivate(0)
> + for (i = 0; i < 16; ++i)
> + ;
> +
> + int x, y, z;
> +#pragma omp parallel for lastprivate(x) firstprivate(x)
> + for (i = 0; i < 16; ++i)
> + ;
> +#pragma omp parallel for lastprivate(x, y) firstprivate(x, y)
> + for (i = 0; i < 16; ++i)
> + ;
> +#pragma omp parallel for lastprivate(x, y, z) firstprivate(x, y, z)
> + for (i = 0; i < 16; ++i)
> + ;
> +}
> +
> +void test_loop_messages() {
> + float a[100], b[100], c[100];
> +// expected-error at +2 {{variable must be of integer or pointer type}}
> +#pragma omp parallel for
> + for (float fi = 0; fi < 10.0; fi++) {
> + c[(int)fi] = a[(int)fi] + b[(int)fi];
> + }
> +// expected-error at +2 {{variable must be of integer or pointer type}}
> +#pragma omp parallel for
> + for (double fi = 0; fi < 10.0; fi++) {
> + c[(int)fi] = a[(int)fi] + b[(int)fi];
> + }
> +}
> +
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_misc_messages.c
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_misc_messages.c
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_misc_messages.c
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,65 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note {{declared here}}
> +
> +template <class T, typename S, int N> // expected-note {{declared here}}
> +T tmain(T argc, S **argv) {
> + T i;
> + #pragma omp parallel for num_threads // expected-error {{expected '('
> after 'num_threads'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads ( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads () // expected-error {{expected
> expression}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argc)) // expected-warning
> {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads ((argc > 0) ? argv[1] : argv[2])
> // expected-error 2 {{expression must have integral or unscoped enumeration
> type, not 'char *'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (foobool(argc)), num_threads
> (true), num_threads (-5) // expected-error 2 {{directive '#pragma omp
> parallel for' cannot contain more than one 'num_threads' clause}}
> expected-error {{argument to 'num_threads' clause must be a positive
> integer value}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (S) // expected-error {{'S' does
> not refer to a value}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argv[1]=2) // expected-error
> {{expected ')'}} expected-note {{to match this '('}} expected-error 2
> {{expression must have integral or unscoped enumeration type, not 'char *'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argc)
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (N) // expected-error {{argument
> to 'num_threads' clause must be a positive integer value}}
> + for (i = 0; i < argc; ++i) foo();
> +
> + return argc;
> +}
> +
> +int main(int argc, char **argv) {
> + int i;
> + #pragma omp parallel for num_threads // expected-error {{expected '('
> after 'num_threads'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads ( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads () // expected-error {{expected
> expression}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argc)) // expected-warning
> {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argc > 0 ? argv[1] : argv[2]) //
> expected-error {{integral }}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (foobool(argc)), num_threads
> (true), num_threads (-5) // expected-error 2 {{directive '#pragma omp
> parallel for' cannot contain more than one 'num_threads' clause}}
> expected-error {{argument to 'num_threads' clause must be a positive
> integer value}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (argv[1]=2) // expected-error
> {{expected ')'}} expected-note {{to match this '('}} expected-error
> {{expression must have integral or unscoped enumeration type, not 'char *'}}
> + for (i = 0; i < argc; ++i) foo();
> + #pragma omp parallel for num_threads (num_threads(tmain<int, char,
> -1>(argc, argv) // expected-error 2 {{expected ')'}} expected-note 2 {{to
> match this '('}} expected-note {{in instantiation of function template
> specialization 'tmain<int, char, -1>' requested here}}
> + for (i = 0; i < argc; ++i) foo();
> +
> + return tmain<int, char, 3>(argc, argv); // expected-note {{in
> instantiation of function template specialization 'tmain<int, char, 3>'
> requested here}}
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_num_threads_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,173 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward
> declaration of 'S1'}}
> +extern S1 a;
> +class S2 {
> + mutable int a;
> +
> +public:
> + S2() : a(0) {}
> +};
> +const S2 b;
> +const S2 ba[5];
> +class S3 {
> + int a;
> +
> +public:
> + S3() : a(0) {}
> +};
> +const S3 ca[5];
> +class S4 { // expected-note {{'S4' declared here}}
> + int a;
> + S4();
> +
> +public:
> + S4(int v) : a(v) {}
> +};
> +class S5 { // expected-note {{'S5' declared here}}
> + int a;
> + S5() : a(0) {}
> +
> +public:
> + S5(int v) : a(v) {}
> +};
> +
> +S3 h;
> +#pragma omp threadprivate(h) // expected-note 2 {{defined as
> threadprivate or thread local}}
> +
> +template <class I, class C>
> +int foomain(I argc, C **argv) {
> + I e(4);
> + I g(5);
> + int i;
> + int &j = i; // expected-note {{'j' defined here}}
> +#pragma omp parallel for private // expected-error {{expected '(' after
> 'private'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private() // expected-error {{expected
> expression}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(S1) // expected-error {{'S1' does not
> refer to a value}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(a, b) // expected-error {{private
> variable with incomplete type 'S1'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argv[1]) // expected-error {{expected
> variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(e, g)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(h) // expected-error {{threadprivate or
> thread local variable cannot be private}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for nowait // expected-error {{unexpected OpenMP
> clause 'nowait' in directive '#pragma omp parallel for'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel
> + {
> + int v = 0;
> + int i;
> +#pragma omp parallel for private(i)
> + for (int k = 0; k < argc; ++k) {
> + i = k;
> + v += i;
> + }
> + }
> +#pragma omp parallel shared(i)
> +#pragma omp parallel private(i)
> +#pragma omp parallel for private(j) // expected-error {{arguments of
> OpenMP clause 'private' cannot be of reference type}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(i)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> + return 0;
> +}
> +
> +int main(int argc, char **argv) {
> + S4 e(4); // expected-note {{'e' defined here}}
> + S5 g(5); // expected-note {{'g' defined here}}
> + int i;
> + int &j = i; // expected-note {{'j' defined here}}
> +#pragma omp parallel for private // expected-error {{expected '(' after
> 'private'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private( // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private() // expected-error {{expected
> expression}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc // expected-error {{expected ')'}}
> expected-note {{to match this '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argc)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(S1) // expected-error {{'S1' does not
> refer to a value}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(a, b) // expected-error {{private
> variable with incomplete type 'S1'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(argv[1]) // expected-error {{expected
> variable name}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(e, g) // expected-error 2 {{private
> variable must have an accessible, unambiguous default constructor}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(h) // expected-error {{threadprivate or
> thread local variable cannot be private}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for nowait // expected-error {{unexpected OpenMP
> clause 'nowait' in directive '#pragma omp parallel for'}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel
> + {
> + int i;
> +#pragma omp parallel for private(i)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> + }
> +#pragma omp parallel shared(i)
> +#pragma omp parallel private(i)
> +#pragma omp parallel for private(j) // expected-error {{arguments of
> OpenMP clause 'private' cannot be of reference type}}
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +#pragma omp parallel for private(i)
> + for (int k = 0; k < argc; ++k)
> + ++k;
> +
> + return 0;
> +}
> +
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_private_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,35 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 -o - %s
> +
> +void foo();
> +
> +int main(int argc, char **argv) {
> + int i;
> +#pragma omp parallel for proc_bind // expected-error {{expected '(' after
> 'proc_bind'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for proc_bind( // expected-error {{expected
> 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for proc_bind() // expected-error {{expected
> 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for proc_bind(master // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for proc_bind(close), proc_bind(spread) //
> expected-error {{directive '#pragma omp parallel for' cannot contain more
> than one 'proc_bind' clause}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +#pragma omp parallel for proc_bind(x) // expected-error {{expected
> 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}}
> + for (i = 0; i < argc; ++i)
> + foo();
> +
> +#pragma omp parallel for proc_bind(master)
> + for (i = 0; i < argc; ++i)
> + foo();
> +
> +#pragma omp parallel proc_bind(close)
> +#pragma omp parallel for proc_bind(spread)
> + for (i = 0; i < argc; ++i)
> + foo();
> + return 0;
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_proc_bind_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,295 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 -ferror-limit 100 -o - %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note {{declared here}} expected-note 4 {{forward
> declaration of 'S1'}}
> +extern S1 a;
> +class S2 {
> + mutable int a;
> + S2 &operator+=(const S2 &arg) { return (*this); }
> +
> +public:
> + S2() : a(0) {}
> + S2(S2 &s2) : a(s2.a) {}
> + static float S2s; // expected-note 2 {{static data member is
> predetermined as shared}}
> + static const float S2sc;
> +};
> +const float S2::S2sc = 0; // expected-note 2 {{'S2sc' defined here}}
> +S2 b; // expected-note 2 {{'b' defined here}}
> +const S2 ba[5]; // expected-note 2 {{'ba' defined here}}
> +class S3 {
> + int a;
> +
> +public:
> + S3() : a(0) {}
> + S3(const S3 &s3) : a(s3.a) {}
> + S3 operator+=(const S3 &arg1) { return arg1; }
> +};
> +int operator+=(const S3 &arg1, const S3 &arg2) { return 5; }
> +S3 c; // expected-note 2 {{'c' defined here}}
> +const S3 ca[5]; // expected-note 2 {{'ca' defined here}}
> +extern const int f; // expected-note 4 {{'f' declared here}}
> +class S4 { // expected-note {{'S4' declared here}}
> + int a;
> + S4();
> + S4(const S4 &s4);
> + S4 &operator+=(const S4 &arg) { return (*this); }
> +
> +public:
> + S4(int v) : a(v) {}
> +};
> +S4 &operator&=(S4 &arg1, S4 &arg2) { return arg1; }
> +class S5 {
> + int a;
> + S5() : a(0) {}
> + S5(const S5 &s5) : a(s5.a) {}
> + S5 &operator+=(const S5 &arg);
> +
> +public:
> + S5(int v) : a(v) {}
> +};
> +class S6 {
> + int a;
> +
> +public:
> + S6() : a(6) {}
> + operator int() { return 6; }
> +} o; // expected-note 2 {{'o' defined here}}
> +
> +S3 h, k;
> +#pragma omp threadprivate(h) // expected-note 2 {{defined as
> threadprivate or thread local}}
> +
> +template <class T> // expected-note {{declared here}}
> +T tmain(T argc) { // expected-note 2 {{'argc' defined here}}
> + const T d = T(); // expected-note 4 {{'d' defined here}}
> + const T da[5] = {T()}; // expected-note 2 {{'da' defined here}}
> + T qa[5] = {T()};
> + T i;
> + T &j = i; // expected-note 4 {{'j' defined here}}
> + S3 &p = k; // expected-note 2 {{'p' defined here}}
> + const T &r = da[(int)i]; // expected-note 2 {{'r' defined here}}
> + T &q = qa[(int)i]; // expected-note 2 {{'q' defined here}}
> + T fl; // expected-note {{'fl' defined here}}
> +#pragma omp parallel for reduction // expected-error {{expected '(' after
> 'reduction'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction + // expected-error {{expected '('
> after 'reduction'}} expected-warning {{extra tokens at the end of '#pragma
> omp parallel for' are ignored}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction( // expected-error {{expected
> unqualified-id}} expected-warning {{missing ':' after reduction identifier
> - ignoring}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(- // expected-warning {{missing ':'
> after reduction identifier - ignoring}} expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction() // expected-error {{expected
> unqualified-id}} expected-warning {{missing ':' after reduction identifier
> - ignoring}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(*) // expected-warning {{missing ':'
> after reduction identifier - ignoring}} expected-error {{expected
> expression}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(\) // expected-error {{expected
> unqualified-id}} expected-warning {{missing ':' after reduction identifier
> - ignoring}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(& : argc // expected-error {{expected
> ')'}} expected-note {{to match this '('}} expected-error {{variable of type
> 'float' is not valid for specified reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(| : argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}} expected-error {{variable of type 'float' is not valid for specified
> reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(|| : argc ? i : argc) //
> expected-error 2 {{expected variable name}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(foo : argc) //expected-error
> {{incorrect reduction identifier, expected one of '+', '-', '*', '&', '|',
> '^', '&&', '||', 'min' or 'max'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(&& : argc)
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(^ : T) // expected-error {{'T' does
> not refer to a value}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : a, b, c, d, f) // expected-error
> {{reduction variable with incomplete type 'S1'}} expected-error 3
> {{const-qualified variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(min : a, b, c, d, f) // expected-error
> {{reduction variable with incomplete type 'S1'}} expected-error 2
> {{arguments of OpenMP clause 'reduction' for 'min' or 'max' must be of
> arithmetic type}} expected-error 3 {{const-qualified variable cannot be
> reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(max : qa[1]) // expected-error 2
> {{expected variable name}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : ba) // expected-error {{a
> reduction variable with array type 'const S2 [5]'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(* : ca) // expected-error {{a
> reduction variable with array type 'const S3 [5]'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(- : da) // expected-error {{a
> reduction variable with array type 'const int [5]'}} expected-error {{a
> reduction variable with array type 'const float [5]'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(^ : fl) // expected-error {{variable
> of type 'float' is not valid for specified reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(&& : S2::S2s) // expected-error
> {{shared variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(&& : S2::S2sc) // expected-error
> {{const-qualified variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : h, k) // expected-error
> {{threadprivate or thread local variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : o) // expected-error {{variable of
> type 'class S6' is not valid for specified reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for private(i), reduction(+ : j), reduction(+ : q)
> // expected-error 4 {{argument of OpenMP clause 'reduction' must reference
> the same object in all threads}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel private(k)
> +#pragma omp parallel for reduction(+ : p), reduction(+ : p) //
> expected-error 2 {{argument of OpenMP clause 'reduction' must reference the
> same object in all threads}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : p), reduction(+ : p) //
> expected-error 3 {{variable can appear only once in OpenMP 'reduction'
> clause}} expected-note 3 {{previously referenced here}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : r) // expected-error 2
> {{const-qualified variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel shared(i)
> +#pragma omp parallel reduction(min : i)
> +#pragma omp parallel for reduction(max : j) // expected-error 2
> {{argument of OpenMP clause 'reduction' must reference the same object in
> all threads}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel private(fl)
> +#pragma omp parallel for reduction(+ : fl)
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel reduction(* : fl)
> +#pragma omp parallel for reduction(+ : fl)
> + for (int i = 0; i < 10; ++i)
> + foo();
> +
> + return T();
> +}
> +
> +int main(int argc, char **argv) {
> + const int d = 5; // expected-note 2 {{'d' defined here}}
> + const int da[5] = {0}; // expected-note {{'da' defined here}}
> + int qa[5] = {0};
> + S4 e(4); // expected-note {{'e' defined here}}
> + S5 g(5); // expected-note {{'g' defined here}}
> + int i;
> + int &j = i; // expected-note 2 {{'j' defined here}}
> + S3 &p = k; // expected-note 2 {{'p' defined here}}
> + const int &r = da[i]; // expected-note {{'r' defined here}}
> + int &q = qa[i]; // expected-note {{'q' defined here}}
> + float fl; // expected-note {{'fl' defined here}}
> +#pragma omp parallel for reduction // expected-error {{expected '(' after
> 'reduction'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction + // expected-error {{expected '('
> after 'reduction'}} expected-warning {{extra tokens at the end of '#pragma
> omp parallel for' are ignored}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction( // expected-error {{expected
> unqualified-id}} expected-warning {{missing ':' after reduction identifier
> - ignoring}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(- // expected-warning {{missing ':'
> after reduction identifier - ignoring}} expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction() // expected-error {{expected
> unqualified-id}} expected-warning {{missing ':' after reduction identifier
> - ignoring}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(*) // expected-warning {{missing ':'
> after reduction identifier - ignoring}} expected-error {{expected
> expression}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(\) // expected-error {{expected
> unqualified-id}} expected-warning {{missing ':' after reduction identifier
> - ignoring}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(foo : argc // expected-error
> {{expected ')'}} expected-note {{to match this '('}} expected-error
> {{incorrect reduction identifier, expected one of '+', '-', '*', '&', '|',
> '^', '&&', '||', 'min' or 'max'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(| : argc, // expected-error {{expected
> expression}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(|| : argc > 0 ? argv[1] : argv[2]) //
> expected-error {{expected variable name}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(~ : argc) // expected-error {{expected
> unqualified-id}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(&& : argc)
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(^ : S1) // expected-error {{'S1' does
> not refer to a value}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : a, b, c, d, f) // expected-error
> {{reduction variable with incomplete type 'S1'}} expected-error 2
> {{const-qualified variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(min : a, b, c, d, f) // expected-error
> {{reduction variable with incomplete type 'S1'}} expected-error 2
> {{arguments of OpenMP clause 'reduction' for 'min' or 'max' must be of
> arithmetic type}} expected-error 2 {{const-qualified variable cannot be
> reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(max : argv[1]) // expected-error
> {{expected variable name}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : ba) // expected-error {{a
> reduction variable with array type 'const S2 [5]'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(* : ca) // expected-error {{a
> reduction variable with array type 'const S3 [5]'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(- : da) // expected-error {{a
> reduction variable with array type 'const int [5]'}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(^ : fl) // expected-error {{variable
> of type 'float' is not valid for specified reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(&& : S2::S2s) // expected-error
> {{shared variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(&& : S2::S2sc) // expected-error
> {{const-qualified variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(& : e, g) // expected-error
> {{reduction variable must have an accessible, unambiguous default
> constructor}} expected-error {{variable of type 'S5' is not valid for
> specified reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : h, k) // expected-error
> {{threadprivate or thread local variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : o) // expected-error {{variable of
> type 'class S6' is not valid for specified reduction operation}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for private(i), reduction(+ : j), reduction(+ : q)
> // expected-error 2 {{argument of OpenMP clause 'reduction' must reference
> the same object in all threads}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel private(k)
> +#pragma omp parallel for reduction(+ : p), reduction(+ : p) //
> expected-error 2 {{argument of OpenMP clause 'reduction' must reference the
> same object in all threads}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : p), reduction(+ : p) //
> expected-error {{variable can appear only once in OpenMP 'reduction'
> clause}} expected-note {{previously referenced here}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel for reduction(+ : r) // expected-error
> {{const-qualified variable cannot be reduction}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel shared(i)
> +#pragma omp parallel reduction(min : i)
> +#pragma omp parallel for reduction(max : j) // expected-error {{argument
> of OpenMP clause 'reduction' must reference the same object in all threads}}
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel private(fl)
> +#pragma omp parallel for reduction(+ : fl)
> + for (int i = 0; i < 10; ++i)
> + foo();
> +#pragma omp parallel reduction(* : fl)
> +#pragma omp parallel for reduction(+ : fl)
> + for (int i = 0; i < 10; ++i)
> + foo();
> +
> + return tmain(argc) + tmain(fl); // expected-note {{in instantiation of
> function template specialization 'tmain<int>' requested here}}
> expected-note {{in instantiation of function template specialization
> 'tmain<float>' requested here}}
> +}
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_reduction_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Added: cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp?rev=212453&view=auto
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp (added)
> +++ cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -0,0 +1,91 @@
> +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
> +
> +void foo() {
> +}
> +
> +bool foobool(int argc) {
> + return argc;
> +}
> +
> +struct S1; // expected-note {{declared here}}
> +
> +template <class T, typename S, int N, int ST> // expected-note {{declared
> here}}
> +T tmain(T argc, S **argv) {
> + #pragma omp parallel for schedule // expected-error {{expected '('
> after 'schedule'}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule ( // expected-error {{expected
> 'static', 'dynamic', 'guided', 'auto' or 'runtime' in OpenMP clause
> 'schedule'}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule () // expected-error {{expected
> 'static', 'dynamic', 'guided', 'auto' or 'runtime' in OpenMP clause
> 'schedule'}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (auto // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (auto_dynamic // expected-error
> {{expected 'static', 'dynamic', 'guided', 'auto' or 'runtime' in OpenMP
> clause 'schedule'}} expected-error {{expected ')'}} expected-note {{to
> match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (auto, // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (runtime, 3) // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +1 {{expected ')'}} expected-note at +1 {{to match this
> '('}}
> + #pragma omp parallel for schedule (guided argc
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +1 2 {{argument to 'schedule' clause must be a
> positive integer value}}
> + #pragma omp parallel for schedule (static, ST // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (dynamic, 1)) // expected-warning
> {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (guided, (ST > 0) ? 1 + ST : 2)
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +2 2 {{directive '#pragma omp parallel for' cannot
> contain more than one 'schedule' clause}}
> + // expected-error at +1 {{argument to 'schedule' clause must be a
> positive integer value}}
> + #pragma omp parallel for schedule (static, foobool(argc)), schedule
> (dynamic, true), schedule (guided, -5)
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (static, S) // expected-error {{'S'
> does not refer to a value}} expected-warning {{extra tokens at the end of
> '#pragma omp parallel for' are ignored}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + // expected-error at +1 2 {{expression must have integral or unscoped
> enumeration type, not 'char *'}}
> + #pragma omp parallel for schedule (guided, argv[1]=2) // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (dynamic, 1)
> + for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + #pragma omp parallel for schedule (static, N) // expected-error
> {{argument to 'schedule' clause must be a positive integer value}}
> + for (T i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST];
> + return argc;
> +}
> +
> +int main(int argc, char **argv) {
> + #pragma omp parallel for schedule // expected-error {{expected '('
> after 'schedule'}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule ( // expected-error {{expected
> 'static', 'dynamic', 'guided', 'auto' or 'runtime' in OpenMP clause
> 'schedule'}} expected-error {{expected ')'}} expected-note {{to match this
> '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule () // expected-error {{expected
> 'static', 'dynamic', 'guided', 'auto' or 'runtime' in OpenMP clause
> 'schedule'}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (auto // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (auto_dynamic // expected-error
> {{expected 'static', 'dynamic', 'guided', 'auto' or 'runtime' in OpenMP
> clause 'schedule'}} expected-error {{expected ')'}} expected-note {{to
> match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (auto, // expected-error {{expected
> ')'}} expected-note {{to match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (runtime, 3) // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (guided, 4 // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (static, 2+2)) // expected-warning
> {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (dynamic, foobool(1) > 0 ? 1 : 2)
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + // expected-error at +2 2 {{directive '#pragma omp parallel for' cannot
> contain more than one 'schedule' clause}}
> + // expected-error at +1 {{argument to 'schedule' clause must be a
> positive integer value}}
> + #pragma omp parallel for schedule (guided, foobool(argc)), schedule
> (static, true), schedule (dynamic, -5)
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + #pragma omp parallel for schedule (guided, S1) // expected-error {{'S1'
> does not refer to a value}} expected-warning {{extra tokens at the end of
> '#pragma omp parallel for' are ignored}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + // expected-error at +1 {{expression must have integral or unscoped
> enumeration type, not 'char *'}}
> + #pragma omp parallel for schedule (static, argv[1]=2) // expected-error
> {{expected ')'}} expected-note {{to match this '('}}
> + for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4];
> + // expected-error at +3 {{statement after '#pragma omp parallel for' must
> be a for loop}}
> + // expected-note at +1 {{in instantiation of function template
> specialization 'tmain<int, char, -1, -2>' requested here}}
> + #pragma omp parallel for schedule(dynamic, schedule(tmain<int, char,
> -1, -2>(argc, argv) // expected-error {{expected ')'}} expected-note {{to
> match this '('}}
> + foo();
> + // expected-note at +1 {{in instantiation of function template
> specialization 'tmain<int, char, 1, 0>' requested here}}
> + return tmain<int, char, 1, 0>(argc, argv);
> +}
> +
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:eol-style = native
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:keywords = Author Date Id Rev URL
>
> Propchange: cfe/trunk/test/OpenMP/parallel_for_schedule_messages.cpp
>
> ------------------------------------------------------------------------------
> svn:mime-type = text/plain
>
> Modified: cfe/trunk/test/OpenMP/simd_lastprivate_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/simd_lastprivate_messages.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/simd_lastprivate_messages.cpp (original)
> +++ cfe/trunk/test/OpenMP/simd_lastprivate_messages.cpp Mon Jul 7
> 08:01:15 2014
> @@ -193,8 +193,8 @@ int main(int argc, char **argv) {
> #pragma omp simd private(xa), lastprivate(xa) // expected-error {{private
> variable cannot be lastprivate}} expected-note {{defined as private}}
> for (i = 0; i < argc; ++i)
> foo();
> -#pragma omp simd lastprivate(i)
> - for (i = 0; i < argc; ++i)
> +#pragma omp simd lastprivate(i) // expected-note {{defined as
> lastprivate}}
> + for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable
> in the associated loop of 'omp simd' directive may not be lastprivate,
> predetermined as linear}}
> foo();
> #pragma omp parallel private(xa)
> #pragma omp simd lastprivate(xa) // OK: may be lastprivate
>
> Modified: cfe/trunk/test/OpenMP/simd_loop_messages.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/test/OpenMP/simd_loop_messages.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/test/OpenMP/simd_loop_messages.cpp (original)
> +++ cfe/trunk/test/OpenMP/simd_loop_messages.cpp Mon Jul 7 08:01:15 2014
> @@ -227,14 +227,14 @@ int test_iteration_spaces() {
> c[ii] = a[ii];
>
> // expected-note at +2 {{defined as private}}
> - // expected-error at +2 {{loop iteration variable may not be private}}
> + // expected-error at +2 {{loop iteration variable in the associated loop
> of 'omp simd' directive may not be private, predetermined as linear}}
> #pragma omp simd private(ii)
> for (ii = 0; ii < 10; ii++)
> c[ii] = a[ii];
>
> // expected-error at +3 {{unexpected OpenMP clause 'shared' in directive
> '#pragma omp simd'}}
> // expected-note at +2 {{defined as shared}}
> - // expected-error at +2 {{loop iteration variable may not be shared}}
> + // expected-error at +2 {{loop iteration variable in the associated loop
> of 'omp simd' directive may not be shared, predetermined as linear}}
> #pragma omp simd shared(ii)
> for (ii = 0; ii < 10; ii++)
> c[ii] = a[ii];
> @@ -243,14 +243,15 @@ int test_iteration_spaces() {
> for (ii = 0; ii < 10; ii++)
> c[ii] = a[ii];
>
> - #pragma omp simd lastprivate(ii)
> + #pragma omp simd lastprivate(ii) linear(jj) collapse(2) //
> expected-note {{defined as linear}}
> for (ii = 0; ii < 10; ii++)
> - c[ii] = a[ii];
> + for (jj = 0; jj < 10; jj++) // expected-error {{loop iteration variable
> in the associated loop of 'omp simd' directive may not be linear,
> predetermined as lastprivate}}
> + c[ii] = a[jj];
>
>
> #pragma omp parallel
> {
> - // expected-error at +2 {{loop iteration variable may not be
> threadprivate or thread local}}
> + // expected-error at +2 {{loop iteration variable in the associated
> loop of 'omp simd' directive may not be threadprivate or thread local,
> predetermined as linear}}
> #pragma omp simd
> for (sii = 0; sii < 10; sii+=1)
> c[sii] = a[sii];
>
> Modified: cfe/trunk/tools/libclang/CIndex.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/libclang/CIndex.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/tools/libclang/CIndex.cpp (original)
> +++ cfe/trunk/tools/libclang/CIndex.cpp Mon Jul 7 08:01:15 2014
> @@ -1860,6 +1860,7 @@ public:
> void VisitOMPSectionsDirective(const OMPSectionsDirective *D);
> void VisitOMPSectionDirective(const OMPSectionDirective *D);
> void VisitOMPSingleDirective(const OMPSingleDirective *D);
> + void VisitOMPParallelForDirective(const OMPParallelForDirective *D);
>
> private:
> void AddDeclarationNameInfo(const Stmt *S);
> @@ -2311,6 +2312,11 @@ void EnqueueVisitor::VisitOMPSingleDirec
> VisitOMPExecutableDirective(D);
> }
>
> +void
> +EnqueueVisitor::VisitOMPParallelForDirective(const
> OMPParallelForDirective *D) {
> + VisitOMPExecutableDirective(D);
> +}
> +
> void CursorVisitor::EnqueueWorkList(VisitorWorkList &WL, const Stmt *S) {
> EnqueueVisitor(WL, MakeCXCursor(S, StmtParent,
> TU,RegionOfInterest)).Visit(S);
> }
> @@ -3996,6 +4002,8 @@ CXString clang_getCursorKindSpelling(enu
> return cxstring::createRef("OMPSectionDirective");
> case CXCursor_OMPSingleDirective:
> return cxstring::createRef("OMPSingleDirective");
> + case CXCursor_OMPParallelForDirective:
> + return cxstring::createRef("OMPParallelForDirective");
> }
>
> llvm_unreachable("Unhandled CXCursorKind");
>
> Modified: cfe/trunk/tools/libclang/CXCursor.cpp
> URL:
> http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/libclang/CXCursor.cpp?rev=212453&r1=212452&r2=212453&view=diff
>
> ==============================================================================
> --- cfe/trunk/tools/libclang/CXCursor.cpp (original)
> +++ cfe/trunk/tools/libclang/CXCursor.cpp Mon Jul 7 08:01:15 2014
> @@ -535,6 +535,9 @@ CXCursor cxcursor::MakeCXCursor(const St
> case Stmt::OMPSingleDirectiveClass:
> K = CXCursor_OMPSingleDirective;
> break;
> + case Stmt::OMPParallelForDirectiveClass:
> + K = CXCursor_OMPParallelForDirective;
> + break;
> }
>
> CXCursor C = { K, 0, { Parent, S, TU } };
>
>
> _______________________________________________
> cfe-commits mailing list
> cfe-commits at cs.uiuc.edu
> http://lists.cs.uiuc.edu/mailman/listinfo/cfe-commits
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.llvm.org/pipermail/cfe-commits/attachments/20140721/b69e7c4e/attachment.html>
More information about the cfe-commits
mailing list