OpenACC device_type clause and routine bind clause are rejected (C)

// # Finding (GCC 16.2): OpenACC device_type and routine bind clauses are rejected (C); the reproducer is the catalog program
//   acc34-c-clause-device_type
//
// - toolchains: gcc_g90 (GCC 16.2.0, AMD Instinct MI250X gfx90a, Tioga) and gcc_sm80 (GCC 16.2.0,
//   NVIDIA A100 sm_80, wingtip); separate memory only; -O2; OMP_TARGET_OFFLOAD=mandatory
// - build: gcc -fopenacc -foffload=amdgcn-amdhsa -foffload-options=amdgcn-amdhsa=-march=gfx90a -O2 (gcc_g90); -foffload=nvptx-none
//   -foffload-options=nvptx-none=-march=sm_80 -foffload-options=nvptx-none=-latomic -O2 (gcc_sm80)
// - failure: rejected: expected an OpenACC clause before
// - observed: `error: expected an OpenACC clause before '(' token` on both GPUs.
// - expected: compiles; `RESULT ran_on_host=0 check=pass`
// - spec: the device_type clause (OpenACC 3.4 §2.4 l.1013-1015) and the routine directive's bind clause (§2.15.1 l.3405-3407: "The
//   bind clause specifies the name to use when calling the procedure on a device other than the host"); both are OpenACC 2.0
//   clauses.
// - GCC 16.2 documentation (libgomp.texi "Enabling OpenACC"): "A complete description of all OpenACC directives accepted may be
//   found in the OpenACC Application Programming Interface manual, version 2.6"; _OPENACC is 201711 (2.6). No list of OpenACC gaps
//   is documented.
// - other families: NVHPC 25.11/26.9 compile and run both programs correctly (CCE has no OpenACC C).
// - gate and confirmer: 4 cells (2 gcc_g90, 2 gcc_sm80), each confirmed in the gate's four environments (a-d;
//   results/gcc/gate-tioga/ and gate-wingtip/ verdicts.jsonl); confirmer verdicts (results/gcc/confirm/batch.gcc_*.jsonl):
//   compiler_bug (R11-compile-rejection) 4
// - catalog programs (2): acc34-c-clause-bind, acc34-c-clause-device_type
// - legality: the catalog programs are legal by construction (offload.engine.gen, c_gen and acc_gen
//   check every program against the catalog rules and the offload scope as it is built; no
//   compiler). GCC is a compiler under test only: never a legality witness, here or for another
//   family's case (catalog/machines.yaml under_test_only).
// Generated by compliance.acc_c_gen (OpenACC 3.4, C11): the C port (offload.engine.f2c) of acc34-clause-device_type. Do not edit.
// id: acc34-c-clause-device_type
// primary atom: acc.clause.device_type
// legal: yes
// observable: yes
// ran_on_host: inside the compute region of interest (acc_on_device)
// evidence: implementation_defined
// needs: none
// std: c11
// no oracle (implementation_defined): the device types and their names are implementation-defined; the clauses after device_type(*)
// are hints here (vector_length)
// basis: OpenACC 3.4 §2.4, p.32: "The supported device types are implementation-defined."
#include <stdio.h>
#include <stdbool.h>
#include <openacc.h>

enum { n = 64 };

int main(void) {
  int a[n];
  int b[n];
  int ref[n];
  int host_flag;
  bool ok;
  for (int i = 1; i <= n; i++) {
    a[i - 1] = i;
    b[i - 1] = 0;
    ref[i - 1] = 2 * i + 1;
  }
  host_flag = 1;
  #pragma acc parallel loop copyin(a) copyout(b) copy(host_flag) device_type(*) \
      vector_length(32)
  for (int i = 1; i <= n; i++) {
    if (i == 1) host_flag = (acc_on_device(acc_device_host) ? 1 : 0);
    b[i - 1] = 2 * a[i - 1] + 1;
  }
  bool t1_ = true;
  for (int k2_ = 0; k2_ < n; k2_++)
    t1_ = t1_ && (b[k2_] == ref[k2_]);
  ok = t1_;
  printf("RESULT ran_on_host=%d check=%s\n", host_flag, ok ? "pass" : "fail");
  return 0;
}