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