[Bug fortran/93956] Wrong array creation with p => array_dt(1:n)%component

[mscfd at gmx dot net]

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

--- Comment #3 from martin <mscfd at gmx dot net> ---
Sorry, indeed the line 'n=10000' is missing. Not sure how that single line got
lost.

There are a few possibilities as a work around for this simple case, but the
context where I came upon this bug is (as often) more involved. There the get
routine has an additional argument selecting the component of the type and the
aim was to put this selection process into a separate subroutine or function.