maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Correct the spelling of LOCAL_INIT clauses on DO CONCURRENT statements. 

Original-commit: flang-compiler/f18@bfc869ad5f
Reviewed-on: https://github.com/flang-compiler/f18/pull/198
This commit is contained in:
peter klausler 2018-10-01 15:00:09 -07:00
parent ded0a3b715
commit c71aecb787
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flang/documentation/f2018-grammar.txt
View File

@ -485,7 +485,7 @@ R1127 concurrent-limit -> scalar-int-expr
R1128 concurrent-step -> scalar-int-expr
R1129 concurrent-locality -> [locality-spec]...
R1130 locality-spec ->
LOCAL ( variable-name-list ) | LOCAL INIT ( variable-name-list ) |
LOCAL ( variable-name-list ) | LOCAL_INIT ( variable-name-list ) |
SHARED ( variable-name-list ) | DEFAULT ( NONE )
R1131 end-do -> end-do-stmt | continue-stmt
R1132 end-do-stmt -> END DO [do-construct-name]

4
flang/lib/parser/grammar.h
View File

@ -2137,12 +2137,12 @@ TYPE_PARSER(construct<ConcurrentControl>(name / "=", scalarIntExpr / ":",
scalarIntExpr, maybe(":" >> scalarIntExpr)))
// R1130 locality-spec ->
// LOCAL ( variable-name-list ) | LOCAL INIT ( variable-name-list ) |
// LOCAL ( variable-name-list ) | LOCAL_INIT ( variable-name-list ) |
// SHARED ( variable-name-list ) | DEFAULT ( NONE )
TYPE_PARSER(construct<LocalitySpec>(construct<LocalitySpec::Local>(
"LOCAL" >> parenthesized(listOfNames))) ||
construct<LocalitySpec>(construct<LocalitySpec::LocalInit>(
"LOCAL INIT"_sptok >> parenthesized(listOfNames))) ||
"LOCAL_INIT"_sptok >> parenthesized(listOfNames))) ||
construct<LocalitySpec>(construct<LocalitySpec::Shared>(
"SHARED" >> parenthesized(listOfNames))) ||
construct<LocalitySpec>(

2
flang/lib/parser/parse-tree.h
View File

@ -2153,7 +2153,7 @@ struct ConcurrentHeader {
};
// R1130 locality-spec ->
// LOCAL ( variable-name-list ) | LOCAL INIT ( variable-name-list ) |
// LOCAL ( variable-name-list ) | LOCAL_INIT ( variable-name-list ) |
// SHARED ( variable-name-list ) | DEFAULT ( NONE )
struct LocalitySpec {
UNION_CLASS_BOILERPLATE(LocalitySpec);

2
flang/lib/parser/unparse.cc
View File

@ -936,7 +936,7 @@ public:
Word("LOCAL("), Walk(x.v, ", "), Put(')');
}
void Unparse(const LocalitySpec::LocalInit &x) {
Word("LOCAL INIT("), Walk(x.v, ", "), Put(')');
Word("LOCAL_INIT("), Walk(x.v, ", "), Put(')');
}
void Unparse(const LocalitySpec::Shared &x) {
Word("SHARED("), Walk(x.v, ", "), Put(')');