[flang][openacc] Fix false error when common block is in copy clause

[clementval]

Summary

Wrong error was reported mentioning that the common block was in
more than one data sharing clause.

[kiranchandramohan]

LG.

flang/include/flang/Semantics/symbol.h

ENUM_CLASS(Flag,
       EntryDummyArgument,
       CompilerCreated, // A compiler created symbol
       // For compiler created symbols that are constant but cannot legally have
       // the PARAMETER attribute.
       ReadOnly,
       // OpenACC data-sharing attribute
       AccPrivate, AccFirstPrivate, AccShared,
       // OpenACC data-mapping attribute
-      AccCopyIn, AccCopyOut, AccCreate, AccDelete, AccPresent,
+      AccCopy, AccCopyIn, AccCopyOut, AccCreate, AccDelete, AccPresent,
       // OpenACC data-movement attribute
       AccDevice, AccHost, AccSelf,
       // OpenACC miscellaneous flags
       AccCommonBlock, AccThreadPrivate, AccReduction, AccNone, AccPreDetermined,
       // OpenMP data-sharing attribute
       OmpShared, OmpPrivate, OmpLinear, OmpFirstPrivate, OmpLastPrivate,
       // OpenMP data-mapping attribute
       OmpMapTo, OmpMapFrom, OmpMapAlloc, OmpMapRelease, OmpMapDelete,

flang/lib/Semantics/resolve-directives.cpp

public:
   void Post(const parser::OpenACCCacheConstruct &) { PopContext(); }
 
   void Post(const parser::AccDefaultClause &);
 
   bool Pre(const parser::AccClause::Attach &);
   bool Pre(const parser::AccClause::Detach &);
 
   bool Pre(const parser::AccClause::Copy &x) {
-    ResolveAccObjectList(x.v, Symbol::Flag::AccCopyIn);
-    ResolveAccObjectList(x.v, Symbol::Flag::AccCopyOut);
+    ResolveAccObjectList(x.v, Symbol::Flag::AccCopy);
     return false;
   }
 
   bool Pre(const parser::AccClause::Create &x) {
     const auto &objectList{std::get<parser::AccObjectList>(x.v.t)};
     ResolveAccObjectList(objectList, Symbol::Flag::AccCreate);
     return false;
   }

flang/test/Semantics/OpenACC/acc-resolve04.f90

 ! RUN: %flang_fc1 -fopenacc %s
 
 ! Check that symbol are correctly resolved in device, host and self clause.
 
 program test_resolve04
   real :: a(10), b(10)
   common /foo/ b, c
 
 !$acc data create(/foo/)
 !$acc update device(/foo/)
 !$acc update host(/foo/)
 !$acc update self(/foo/)
 !$acc end data
 
+!$acc data copy(/foo/)
+!$acc end data
+
 end