[Bug fortran/92753] [9/10 Regression] ICE in gfc_trans_call, at fortran/trans-stmt.c:392

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92753

--- Comment #6 from anlauf at gcc dot gnu.org ---
Using the LEN() intrinsic works fine, as the dump-tree shows for

  implicit none
  type t
     character :: c = "a"
  end type t
  type(t), parameter :: x = t()
  integer, parameter :: l = x%c%len   ! error and m=0
! integer, parameter :: l = len(x%c)  ! no error, m=1
  integer :: m = l
  print *, m
end

Also the following compiles/works fine:

  implicit none
  type t
     character :: c = "a"
  end type t
  type(t), parameter :: x = t()
  character(*), parameter :: d = x% c
  integer,      parameter :: l = d% len
  integer :: m = l
  print *, m
end