Re: [PATCH] fortran: [PR53800] Wrong copy-in/out with array actual to, TARGET dummy
Jerry D <[email protected]>
| Newsgroups | gmane.comp.gcc.patches,gmane.comp.gcc.fortran |
|---|---|
| Message-ID | <[email protected]> |
On 8/11/26 11:57 AM, Mikael Morin wrote: > Le 11/08/2026 à 19:12, Jerry D a écrit : >> Revised patch attached. See below. OK for mainline? > It is the same as the previous patch, isn't it? No, I should have renamed it several things changed. > >> On 8/10/26 8:20 AM, Jerry D wrote: >>> On 8/10/26 7:32 AM, Mikael Morin wrote: >>>> Le 08/08/2026 à 21:31, Jerry D a écrit : >>>>> diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc >>>>> index 47b28c1d003..621899b3dbe 100644 >>>>> --- a/gcc/fortran/trans-decl.cc >>>>> +++ b/gcc/fortran/trans-decl.cc >>>>> @@ -1408,6 +1408,11 @@ gfc_build_dummy_array_decl (gfc_symbol * sym, tree >>>>> dummy)> >>>>> GFC_DECL_SAVED_DESCRIPTOR (decl) = dummy; >>>>> >>>>> + if (!is_classarray && sym->attr.target && !sym->attr.value >>>>> + && !sym->attr.contiguous && as->type == AS_ASSUMED_SHAPE >>>>> + && packed == PACKED_NO) >>>>> + GFC_DECL_PTR_ARRAY_P (decl) = 1; >>>>> + >>>> ... and this needs to be moved ... >> >> I tried that and it did not work. I got other fails. >> > I didn't really expect that; may you share what it looked like? > > I am heading out on travel for two days. I will send you what I found when I return.