Fortran: Fix wrong code in unlimited polymorphic assignment [PR113363]