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

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2021-07-20
     Ever confirmed|0                           |1

--- Comment #1 from Richard Biener <rguenth at gcc dot gnu.org> ---
gfortran.h:#define gfc_get_shape(rank) (XCNEWVEC (mpz_t, (rank)))

#4  0x0000000000ba3717 in gfc_interpret_derived (buffer=0x7fffffffd730 "\001", 
    buffer_size=4, result=0x392fe40)
    at /home/rguenther/src/gcc2/gcc/fortran/target-memory.c:540
540               e->shape = gfc_get_shape (e->rank);
(gdb) l
535               int n;
536
537               e->expr_type = EXPR_ARRAY;
538               e->rank = cmp->as->rank;
539
540               e->shape = gfc_get_shape (e->rank);
541               for (n = 0; n < e->rank; n++)
542                  {
543                    mpz_init_set_ui (e->shape[n], 1);
544                    mpz_add (e->shape[n], e->shape[n],
(gdb) p e->rank
$1 = -1

Reply via email to