Hi Tobias, Your patch is OK for trunk and, I would suggest 8-branch.
As a matter of curiosity, why did you not use the condition: if (!(expr3_desc && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (expr3_desc))) ? Your solution is fine, though. Cheers Paul On Fri, 12 Oct 2018 at 12:29, Tobias Burnus <tobias.bur...@physik.fu-berlin.de> wrote: > > Hello all, > > "When an ALLOCATE statement is executed for an array with no > allocate-shape-spec-list, the bounds of source-expr determine > the bounds of the array." (F2018, 9.7.1.2 (6)) > > That seems to work fine for arrays which have an array descriptor. > However, as the current code shows, it fails for array constructors > where the lbound is zero instead of the expected one. > > It turns out (PR67125) that functions results which don't use array > descriptors have the same problem as do stack/static allocated > array variables (PR87580). > > I am not sure that my check for array descriptors is the best but > it seems to work and fixes the problem. > > OK for the trunk? > Build and regtested on x86-64-linux. > > Tobias -- "If you can't explain it simply, you don't understand it well enough" - Albert Einstein
