[Bug fortran/64757] [5 Regression] ICE in fold_convert_loc, at fold-const.c:2353

["dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> It it certainly related, but I'm not sure it is an exact duplicate.
> In particular the above PR has quite a history and includes several
> test cases. Let's keep it separate for now.

I disagree. AFACT this PR gives the same ICE as the test in pr49213 comment 8
or the following variant of the original code

program main

  type :: S
    integer :: n
  end type
  type(S) :: Sobj

  type, extends(S) :: S2
    integer :: m
  end type
  type(S2) :: S2obj

  type :: T
    class(S), allocatable :: x
  end type
  type(T) :: Tobj

  Sobj = S(1)
  Tobj = T(Sobj)

  S2obj = S2(1,2)
  print *, S2obj%n, S2obj%m

end program

Actually pr49213 is a collection of different bugs, one being this PR. IMO
pr49213 should be split along the different bugs.