[Bug fortran/92006] storage_size() returns incorrect value on unlimited polymorphic variable (CLASS(*)) when passed a CHARACTER variable

[urbanjost at comcast dot net]

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

--- Comment #3 from urbanjost at comcast dot net ---
(In reply to kargl from comment #2)
> Depends on, if not a duplicate, of 84006

84006 is showing an ICE when calling STORAGE_SIZE() with an unallocated
variable, which I believe is invalid code. This problem only occurs with an
unlimited polymorphic variable that has been called with a CHARACTER variable,
and produces an incorrect result, not an ICE. Is it certain the problems are
related? If I change the CHARACTER variable to any other type including
user-defined types I did not get a problem.