[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2020-07-30 Thread paul.richard.thomas at gmail dot com
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

--- Comment #9 from paul.richard.thomas at gmail dot com  ---
Bonsoir Dominique,

Je t'en remercie! A petits pas je recommence. Comme Steve Kargl je trouve
le git complètement incompréhensible
mais je retrouve des recettes avec l'aide de Thomas.

J'espère que tu as guéri de votre maladie?

Amicalement

Paul


On Thu, 30 Jul 2020 at 16:28, dominiq at lps dot ens.fr <
gcc-bugzi...@gcc.gnu.org> wrote:

> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625
>
> Dominique d'Humieres  changed:
>
>What|Removed |Added
>
> 
>  Status|WAITING |RESOLVED
>  Resolution|--- |FIXED
>
> --- Comment #8 from Dominique d'Humieres  ---
> Fixed.
>
> --
> You are receiving this mail because:
> You are on the CC list for the bug.

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2020-07-30 Thread dominiq at lps dot ens.fr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

Dominique d'Humieres  changed:

   What|Removed |Added

 Status|WAITING |RESOLVED
 Resolution|--- |FIXED

--- Comment #8 from Dominique d'Humieres  ---
Fixed.

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2019-02-28 Thread dominiq at lps dot ens.fr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

--- Comment #7 from Dominique d'Humieres  ---
> Yes, can this please be back-ported? Still broken on at least 8.

This is not a regression.

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2019-02-02 Thread neil.n.carlson at gmail dot com
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

--- Comment #6 from Neil Carlson  ---
Yes, can this please be back-ported? Still broken on at least 8.

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2018-11-08 Thread dominiq at lps dot ens.fr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

Dominique d'Humieres  changed:

   What|Removed |Added

 Status|NEW |WAITING

--- Comment #5 from Dominique d'Humieres  ---
This seems fixed on trunk (9.0). Will r265283 be back ported?

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2018-10-20 Thread dominiq at lps dot ens.fr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

Dominique d'Humieres  changed:

   What|Removed |Added

 CC||neil.n.carlson at gmail dot com

--- Comment #4 from Dominique d'Humieres  ---
*** Bug 84539 has been marked as a duplicate of this bug. ***

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2018-10-19 Thread dominiq at lps dot ens.fr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

Dominique d'Humieres  changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
   Last reconfirmed||2018-10-19
 Ever confirmed|0   |1

--- Comment #3 from Dominique d'Humieres  ---
pr84539 seems to be a duplicate.

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2018-10-18 Thread burnus at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

--- Comment #2 from Tobias Burnus  ---
Author: burnus
Date: Thu Oct 18 19:35:34 2018
New Revision: 265283

URL: https://gcc.gnu.org/viewcvs?rev=265283=gcc=rev
Log:
Fix (re)alloc of polymorphic arrays

PR fortran/87625
* trans-array.c (gfc_is_reallocatable_lhs): Detect allocatable
polymorphic arrays.

PR fortran/87625
* gfortran.dg/realloc_on_assign_31.f90: New file.


Added:
trunk/gcc/testsuite/gfortran.dg/realloc_on_assign_31.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/trans-array.c
trunk/gcc/testsuite/ChangeLog

[Bug fortran/87625] [OOP] (re)allocate on assignment fails for polymorphic array

2018-10-16 Thread burnus at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87625

--- Comment #1 from Tobias Burnus  ---
gfc_is_reallocatable_lhs() is not working:

  /* An allocatable class variable with no reference.  */
  if (sym->ts.type == BT_CLASS
  && !sym->attr.associate_var
  && CLASS_DATA (sym)->attr.allocatable
  && expr->ref && expr->ref->type == REF_COMPONENT
  && strcmp (expr->ref->u.c.component->name, "_data") == 0
  && expr->ref->next == NULL)
return true;

And we have:
(gdb) p expr1->ts.u.derived->components->attr.allocatable 
$19 = 1
(gdb) p *expr1->ref
$23 = {type = REF_ARRAY, u = {ar = {type = AR_FULL, dimen = 1,  next = 0x0}