https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71047
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Priority|P3 |P4
Status|UNCONFIRMED |NEW
Last reconfirmed| |2016-05-10
CC| |fritzoreese at gmail dot com,
| |kargl at gcc dot gnu.org
Summary|Allocatable component of |[7 Regression] Allocatable
|INTENT(OUT) dummy not set |component of INTENT(OUT)
|correctly |dummy not set correctly
Ever confirmed|0 |1
--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Started at revision r235999 (pr56226). The difference between the
dump-tree-original for r235998 and r235999 is
--- pr71047.f90_ r235998.003t.original 2016-05-11 00:17:55.000000000 +0200
+++ pr71047.f90_ r235999.003t.original 2016-05-11 00:17:22.000000000 +0200
@@ -6,8 +6,6 @@ set (struct t_a & restrict y, struct __c
struct t_a t_a.0;
t_a.0.c_abstr.i = 0;
- t_a.0.f._data = 0B;
- t_a.0.f._vptr = (struct __vtype_m_C_abstr * {ref-all}) &__vtab_m_C_abstr;
D.3445 = *y;
*y = t_a.0;
if (D.3445.f._data != 0B && D.3445.f._vptr->_final != 0B)
@@ -50,7 +48,7 @@ p ()
{
static struct t_b __def_init_m_T_b = {.c_abstr={.i=0}};
static struct __vtype_m_T_b __vtab_m_T_b = {._hash=99994213, ._size=4,
._extends=&__vtab_m_C_abstr, ._def_init=&__def_init_m_T_b, ._copy=__copy_m_T_b,
._final=0B};
- static struct t_a res = {.c_abstr={.i=0}, .f={._vptr=&__vtab_m_C_abstr}};
+ static struct t_a res = {.c_abstr={.i=0}};
static struct t_b var = {.c_abstr={.i=0}};
static void __copy_m_T_b (struct t_b & restrict, struct t_b & restrict);
@@ -58,8 +56,6 @@ p ()
struct t_a t_a.4;
t_a.4.c_abstr.i = 0;
- t_a.4.f._data = 0B;
- t_a.4.f._vptr = (struct __vtype_m_C_abstr * {ref-all}) &__vtab_m_C_abstr;
res = t_a.4;
}
{
