[Bug fortran/69498] ICE on disjunct cases with displaced or incomplete embedded statement

[koenigni at gcc dot gnu.org]

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

--- Comment #6 from koenigni at gcc dot gnu.org ---
> +  p = strchr(name, '.');                                                   

s/strchr/strrchr

Also, regression tested for x86_64-pc-linux-gnu