ICE: charlen: sym not adjustable-length char

[flang-compiler]

ICE: charlen: sym not adjustable-length char

[nncarlson]

Another example that gives the same ICE

module example
  type any_vector
    class(*), allocatable :: val(:)
  contains
    procedure :: get
  end type
contains
  subroutine get(this, val)
    class(any_vector), intent(in) :: this
    character(:), allocatable, intent(out) :: val(:)
    select type (this_val => this%val)
    type is (character(*))
      val = this_val
    end select
  end subroutine
end module

[nncarlson]

And one last (?) example that gives the same ICE

module example
  type any_vector
    class(*), allocatable :: val(:)
  end type
contains
  subroutine foo(this)
    class(any_vector), intent(in) :: this
    integer :: n
    select type (this_val => this%val)
    type is (character(*))
      do n = 1, size(this_val)
        print *, trim(this_val(n))
      end do
    end select
  end subroutine
end module

[sscalpone]

The 2nd and 3rd examples are now compiling. As of today, the first is still giving the first ICE.

[nncarlson]

As of today, all three examples are now compiling without error for me.