[Bug fortran/97723] type bound ASSIGNMENT(=) within select rank block wrongly rejected

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

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

--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
(In reply to Paul Thomas from comment #2)
> 
> The fix regtests OK. I will commit as 'obvious' with a test case in the next
> day or two.

Cancel that, there is one regression.

Paul