ftn -h acc: internal compiler error "Bad cast from fcd" for a CHARACTER(len=*) dummy of a routine seq procedure

! # Draft finding: acc34-w-routine-character on cce20
!
! - compiler: cce20
! - toolchain: cce20; arch: gfx942; machine: tuolumne; memory mode: unified; opt: -O2
! - program: catalog acc34-w-routine-character (f90, version 34, sha256 976490e860a6112c)
! - expected: None (None; )
! - actual: ice  (ice: INTERNAL COMPILER ERROR:  "Bad cast from fcd to ... " (/workspace/crayftn/pdgcs/llvm-uex-expr.c, line 620,
!   version 668d73f9607c0349bd23641a3a25a1acfac374de))
! - 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: offload.engine.prerun.check accepts it (rerun: offload.engine.rules with the
!   race rule and the restriction checks, and the AFAR flang front end, not under test here); no
!   compiler under test, gfortran or gcc is a legality witness
! - witnesses: none
! - withdrawn: none
!
! Generated by compliance.widen (OpenACC 3.4, free-form Fortran; catalog widening). Do not edit.
! id: acc34-w-routine-character
! primary atom: pair.base.device.routine_call+base.device.character
! atoms: pair.base.device.routine_call+base.device.character, base.device.routine_call, base.device.character
! legal: yes
! observable: yes
! ran_on_host: inside the compute region of interest (acc_on_device)
! evidence: construct
! needs: none
! std: f2008
! feature: a device routine with a CHARACTER(len=*) dummy
! spec: the parts' own programs
! pair of: base.device.routine_call + base.device.character (each has a program of its own)
module wmod
  implicit none
contains
  integer function code(c)
    !$acc routine seq
    character(len=*), intent(in) :: c
    code = ichar(c(1:1)) + len(c)
  end function code
end module wmod

program wide_prog
  use openacc, only: acc_device_host, acc_on_device
  use wmod
  implicit none
  integer, parameter :: n = 64
  integer :: a(n), b(n), ref(n)
  character(len=8) :: s
  integer :: i, host_flag
  logical :: ok
  do i = 1, n
    a(i) = i
    b(i) = 0
    ref(i) = 97 + mod(i, 8) + 1
  end do
  host_flag = 1
  !$acc parallel loop copyin(a) copyout(b) copy(host_flag) private(s)
  do i = 1, n
    s = 'abcdefgh'
    b(i) = code(s(1:mod(i, 8) + 1))
    if (i == 1) host_flag = merge(1, 0, acc_on_device(acc_device_host))
  end do
  ok = all(b == ref)
  print '(a,i0,a,a)', 'RESULT ran_on_host=', host_flag, ' check=', merge('pass', 'fail', ok)
end program wide_prog
! spec (requirement): The routine directive tells the compiler to compile a procedure for the accelerator as well as
!   the host.
! "The routine directive is used to tell the compiler to compile the definition for a procedure, such as a function or
!   C++ lambda, for an accelerator as well as for the host." (OpenACC 3.4 §2.15.1 p.91 l.3321-3323)
! spec (requirement): A call to a seq routine may appear in any mode, including from a loop in a parallel region.
! "A call to this procedure may appear in any mode." (OpenACC 3.4 §2.15.1 p.93 l.3404)
! spec (this program): The seq routine code takes a character(len=*) dummy; the spec places no restriction on the
!   argument types of a routine procedure (the glossary treats character variables as aggregate variables), so the
!   call with a substring is legal, and ftn stops with an internal error (Bad cast from fcd).