re PR fortran/69498 (ICE on disjunct cases with displaced or incomplete embedded...