[OpenACC][CIR] implement basic 'set' lowering with device_type clause

The 'set' lowering is pretty trivial.  'device_type' is a little more
restricted since both the MLIR-Dialect and language limit it to only 1
value (as confirmed by standards-discussion).

This patch implements 'set', with 'device_type', since 'set' requires at
least 1 clause, and  this is the least difficult to implement at the
moment.

Author: erichkeane

clang/lib/CIR/CodeGen/CIRGenStmtOpenACC.cpp

@@ -92,6 +92,7 @@ class OpenACCClauseCIREmitter final
 
     switch (dirKind) {
     case OpenACCDirectiveKind::Init:
+    case OpenACCDirectiveKind::Set:
     case OpenACCDirectiveKind::Shutdown: {
       // Device type has a list that is either a 'star' (emitted as 'star'),
       // or an identifer list, all of which get added for attributes.
@@ -133,6 +134,11 @@ class OpenACCClauseCIREmitter final
 
         op.setDeviceTypesAttr(
             mlir::ArrayAttr::get(builder.getContext(), deviceTypes));
+      } else if constexpr (isOneOfTypes<Op, SetOp>) {
+        assert(attrData.deviceTypeArchs.size() <= 1 &&
+               "Set can only have a single architecture");
+        if (!attrData.deviceTypeArchs.empty())
+          op.setDeviceType(attrData.deviceTypeArchs[0]);
       } else {
         cgm.errorNYI(dirLoc, "OpenACC 'device_type' clause lowering for ",
                      dirKind);
@@ -232,6 +238,13 @@ CIRGenFunction::emitOpenACCInitConstruct(const OpenACCInitConstruct &s) {
                                s.clauses());
 }
 
+mlir::LogicalResult
+CIRGenFunction::emitOpenACCSetConstruct(const OpenACCSetConstruct &s) {
+  mlir::Location start = getLoc(s.getSourceRange().getEnd());
+  return emitOpenACCOp<SetOp>(start, s.getDirectiveKind(), s.getDirectiveLoc(),
+                              s.clauses());
+}
+
 mlir::LogicalResult CIRGenFunction::emitOpenACCShutdownConstruct(
     const OpenACCShutdownConstruct &s) {
   mlir::Location start = getLoc(s.getSourceRange().getEnd());
@@ -270,11 +283,6 @@ CIRGenFunction::emitOpenACCWaitConstruct(const OpenACCWaitConstruct &s) {
   return mlir::failure();
 }
 mlir::LogicalResult
-CIRGenFunction::emitOpenACCSetConstruct(const OpenACCSetConstruct &s) {
-  getCIRGenModule().errorNYI(s.getSourceRange(), "OpenACC Set Construct");
-  return mlir::failure();
-}
-mlir::LogicalResult
 CIRGenFunction::emitOpenACCUpdateConstruct(const OpenACCUpdateConstruct &s) {
   getCIRGenModule().errorNYI(s.getSourceRange(), "OpenACC Update Construct");
   return mlir::failure();

clang/test/CIR/CodeGenOpenACC/set.c

@@ -0,0 +1,14 @@
+// RUN: %clang_cc1 -fopenacc -emit-cir -fclangir %s -o - | FileCheck %s
+
+void acc_set(void) {
+  // CHECK: cir.func @acc_set() {
+
+#pragma acc set device_type(*)
+  // CHECK-NEXT: acc.set attributes {device_type = #acc.device_type<star>}
+
+  // Set doesn't allow multiple device_type clauses, so no need to test them.
+#pragma acc set device_type(radeon)
+  // CHECK-NEXT: acc.set attributes {device_type = #acc.device_type<radeon>}
+
+  // CHECK-NEXT: cir.return
+}