Skip to content

Commit 4a7fdb0

Browse files
authored
[flang][OpenMP] Fix typos in diagnostic messages, NFC (#154953)
1 parent b31ee8e commit 4a7fdb0

File tree

2 files changed

+7
-7
lines changed

2 files changed

+7
-7
lines changed

flang/lib/Semantics/check-omp-structure.cpp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1198,13 +1198,13 @@ void OmpStructureChecker::Enter(const parser::OpenMPGroupprivate &x) {
11981198

11991199
if (sym->has<AssocEntityDetails>()) {
12001200
context_.SayWithDecl(*sym, arg.source,
1201-
"GROUPPRIVATE argument cannot be an an ASSOCIATE name"_err_en_US);
1201+
"GROUPPRIVATE argument cannot be an ASSOCIATE name"_err_en_US);
12021202
continue;
12031203
}
12041204
if (auto *obj{sym->detailsIf<ObjectEntityDetails>()}) {
12051205
if (obj->IsCoarray()) {
1206-
context_.Say(arg.source,
1207-
"GROUPPRIVATE argument cannot be an a coarray"_err_en_US);
1206+
context_.Say(
1207+
arg.source, "GROUPPRIVATE argument cannot be a coarray"_err_en_US);
12081208
continue;
12091209
}
12101210
if (obj->init()) {
@@ -1215,7 +1215,7 @@ void OmpStructureChecker::Enter(const parser::OpenMPGroupprivate &x) {
12151215
}
12161216
if (sym->test(Symbol::Flag::InCommonBlock)) {
12171217
context_.Say(arg.source,
1218-
"GROUPPRIVATE argument cannot be an a member of a common block"_err_en_US);
1218+
"GROUPPRIVATE argument cannot be a member of a common block"_err_en_US);
12191219
continue;
12201220
}
12211221
if (!IsCommonBlock(*sym)) {

flang/test/Semantics/OpenMP/groupprivate.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ subroutine f00
1414
integer, save :: y
1515
associate (z => y)
1616
block
17-
!ERROR: GROUPPRIVATE argument cannot be an an ASSOCIATE name
17+
!ERROR: GROUPPRIVATE argument cannot be an ASSOCIATE name
1818
!$omp groupprivate(z)
1919
end block
2020
end associate
@@ -25,7 +25,7 @@ module m01
2525
implicit none
2626
integer :: x, y
2727
common /some_block/ x
28-
!ERROR: GROUPPRIVATE argument cannot be an a member of a common block
28+
!ERROR: GROUPPRIVATE argument cannot be a member of a common block
2929
!$omp groupprivate(x)
3030

3131
contains
@@ -42,6 +42,6 @@ subroutine f01
4242
module m02
4343
implicit none
4444
integer :: x(10)[*]
45-
!ERROR: GROUPPRIVATE argument cannot be an a coarray
45+
!ERROR: GROUPPRIVATE argument cannot be a coarray
4646
!$omp groupprivate(x)
4747
end module

0 commit comments

Comments
 (0)