ftn: internal compiler error "Too few arguments on the stack" for uses_allocators with an allocate clause in a target region

! # Draft finding: omp52-clause-uses_allocators on cce19
!
! - compiler: cce19
! - toolchain: cce19; arch: gfx942; machine: tuolumne; memory mode: unified; opt: -O2
! - program: catalog omp52-clause-uses_allocators (f90, version 52, sha256 52f8be7d9bfe1f86)
! - expected: None (None; )
! - actual: ice  (ice: INTERNAL COMPILER ERROR:  "Too few arguments on the stack" (/workspace/crayftn/pdgcs/v_fei.c, line 11730,
!   version cc4d36e4ff3377d45f0e6e892b5dacd82009a0ca))
! - verdict: compiler_bug by rule R10-compile-ice: an internal compiler error (or the compiler rejecting code it generated) on a
!   legal program: always the compiler's defect
! - reason: 
! - citations: RUL-COMPILE-TIME (rulings.md)
! - legality: legal (legal by construction: offload.engine.gen / c_gen / acc_gen check every program against the catalog rules
!   and the
!   offload scope as it is built (no compiler))
! - witnesses: none
! - withdrawn: none
!
! Generated by compliance.gen (OpenMP 5.2, free-form Fortran). Do not edit.
! id: omp52-clause-uses_allocators
! primary atom: omp.clause.uses_allocators
! legal: yes
! observable: yes
! ran_on_host: inside the target region of interest
! evidence: construct
! needs: none
! std: f2008
program gen_prog
  use omp_lib, only: omp_default_mem_alloc, omp_is_initial_device
  implicit none
  integer, parameter :: n = 64
  integer, allocatable, target :: a(:), b(:)
  integer :: ref(n)
  integer :: i, host_flag
  logical :: ok
  integer :: t
  allocate(a(n), b(n))
  do i = 1, n
    a(i) = i
    b(i) = 0
    ref(i) = 2*i + 1
  end do
  host_flag = 1
  !$omp target map(to: a) map(from: b) map(tofrom: host_flag) &
  !$omp& uses_allocators(omp_default_mem_alloc)
    host_flag = merge(1, 0, omp_is_initial_device())
    !$omp parallel do default(none) shared(a, b) private(t) allocate(omp_default_mem_alloc: t)
      do i = 1, n
        t = 2*a(i)
        b(i) = t + 1
      end do
    !$omp end parallel do
  !$omp end target
  ok = all(b == ref)
  print '(a,i0,a,a)', 'RESULT ran_on_host=', host_flag, ' check=', merge('pass', 'fail', ok)
  deallocate(a, b)
end program gen_prog
! spec (requirement): uses_allocators makes a predefined allocator available for use in the region of the target
!   construct.
! "The uses_allocators clause enables the use of the specified allocator in the region associated with the directive
!   on which the clause appears. If allocator refers to a predefined allocator, that predefined allocator will be
!   available for use in the region." (5.2 §6.8 p.182 l.2-4)
! spec (requirement): An allocate clause naming that allocator provides the storage for a list item that a
!   data-sharing clause privatizes on the same directive.
! "If a list item in the clause also appears in a data-sharing attribute clause on the same directive that privatizes
!   the list item, allocations that arise from that list item in the clause will be provided by the memory allocator."
!   (5.2 §6.6 p.178 l.12-14)
! spec (requirement): An allocator used in a target region by an allocate clause must appear in uses_allocators, as it
!   does here.
! "Memory allocators that do not appear in a uses_allocators clause cannot appear as an allocator in an allocate
!   clause or be used in the target region" (5.2 §13.8 p.286 l.38-39)
! spec (this program): uses_allocators(omp_default_mem_alloc) on target and allocate(omp_default_mem_alloc: t) with
!   private(t) on the enclosed parallel do satisfy those rules; ftn stops with an internal error (Too few arguments on
!   the stack).