[Bug fortran/65438] Unnecessary ptr check

[tschwinge at gcc dot gnu.org]

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

--- Comment #4 from Thomas Schwinge <tschwinge at gcc dot gnu.org> ---
Created attachment 38200
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=38200&action=edit
patch