[Bug fortran/113503] [14 Regression] xtb test miscompilation starting with r14-870

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #1 from anlauf at gcc dot gnu.org ---
When trying to further reduce the code I get either an ICE or an
uninitialized-warning for:

program xtb
  implicit none
  type :: TSolvInput
     character(len=:), allocatable :: solvent
  end type
  character(len=20) :: solvents(1) = 'h2o'

! call addSolvationModel(TSolvInput(solvent=     solvents(1)))  ! ICE
  call addSolvationModel(TSolvInput(solvent=trim(solvents(1)))) ! Warning

contains
  subroutine addSolvationModel(input)
    type(TSolvInput), intent(in) :: input
  end
end