Recognize OpenMP target simd construct

This patch treats "target simd" as a "target"
construct. Data attributes are honored by the
front end. There is no parallelism applied yet.

Author: gklimowicz

tools/flang1/flang1exe/semsmp.c

@@ -1921,6 +1921,11 @@ semsmp(int rednum, SST *top)
     clause_errchk((BT_TARGET | BT_SIMD), "OMP TARGET SIMD");
     mp_create_bscope(0);
     DI_BTARGET(sem.doif_depth) = emit_btarget(A_MP_TARGET);
+#if defined(OMP_OFFLOAD_LLVM) || defined(OMP_OFFLOAD_PGI)
+    if(flg.omptarget)
+      A_COMBINEDTYPEP(DI_BTARGET(sem.doif_depth),
+                      get_omp_combined_mode(BT_TARGET | BT_SIMD));
+#endif
     par_push_scope(TRUE);
     begin_parallel_clause(sem.doif_depth);
     SST_ASTP(LHS, 0);
@@ -10220,6 +10225,9 @@ get_omp_combined_mode(BIGINT64 type)
   combined_type = BT_TARGET | BT_PARDO | BT_SIMD;
   if ((type & combined_type) == combined_type)
     return mode_target_parallel_for_simd;
+  combined_type = BT_TARGET | BT_SIMD;
+  if ((type & combined_type) == combined_type)
+    return mode_target_simd;
   if ((type & BT_TARGET))
     return mode_target;
   return mode_none_target;

tools/shared/llmputil.c

@@ -466,6 +466,7 @@ bool is_omp_mode_target(OMP_TARGET_MODE mode) {
     case mode_target_parallel:
     case mode_target_parallel_for:
     case mode_target_parallel_for_simd:
+    case mode_target_simd:
       return true;
     default:
       return false;

tools/shared/llmputil.h

@@ -100,6 +100,7 @@ typedef enum {
   mode_target_parallel,
   mode_target_parallel_for,
   mode_target_parallel_for_simd,
+  mode_target_simd,
   mode_target_data_enter_region,
   mode_target_data_exit_region,
   mode_target_data_region,
@@ -123,6 +124,7 @@ static const char *omp_target_mode_names[] = {
                                     "target parallel",
                                     "target parallel for",
                                     "target parallel for simd",
+                                    "target simd",
                                     "target data enter",
                                     "target data exit",
                                     "target data",