File tree Expand file tree Collapse file tree 2 files changed +7
-7
lines changed Expand file tree Collapse file tree 2 files changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -1198,13 +1198,13 @@ void OmpStructureChecker::Enter(const parser::OpenMPGroupprivate &x) {
1198
1198
1199
1199
if (sym->has <AssocEntityDetails>()) {
1200
1200
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);
1202
1202
continue ;
1203
1203
}
1204
1204
if (auto *obj{sym->detailsIf <ObjectEntityDetails>()}) {
1205
1205
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);
1208
1208
continue ;
1209
1209
}
1210
1210
if (obj->init ()) {
@@ -1215,7 +1215,7 @@ void OmpStructureChecker::Enter(const parser::OpenMPGroupprivate &x) {
1215
1215
}
1216
1216
if (sym->test (Symbol::Flag::InCommonBlock)) {
1217
1217
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);
1219
1219
continue ;
1220
1220
}
1221
1221
if (!IsCommonBlock (*sym)) {
Original file line number Diff line number Diff line change @@ -14,7 +14,7 @@ subroutine f00
14
14
integer , save :: y
15
15
associate (z = > y)
16
16
block
17
- ! ERROR: GROUPPRIVATE argument cannot be an an ASSOCIATE name
17
+ ! ERROR: GROUPPRIVATE argument cannot be an ASSOCIATE name
18
18
! $omp groupprivate(z)
19
19
end block
20
20
end associate
@@ -25,7 +25,7 @@ module m01
25
25
implicit none
26
26
integer :: x, y
27
27
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
29
29
! $omp groupprivate(x)
30
30
31
31
contains
@@ -42,6 +42,6 @@ subroutine f01
42
42
module m02
43
43
implicit none
44
44
integer :: x(10 )[* ]
45
- ! ERROR: GROUPPRIVATE argument cannot be an a coarray
45
+ ! ERROR: GROUPPRIVATE argument cannot be a coarray
46
46
! $omp groupprivate(x)
47
47
end module
You can’t perform that action at this time.
0 commit comments