https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100892
anlauf at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |anlauf at gcc dot gnu.org Keywords| |ice-on-valid-code --- Comment #2 from anlauf at gcc dot gnu.org --- Fixing NULL pointer dereference: diff --git a/gcc/fortran/check.cc b/gcc/fortran/check.cc index fc97bb1371e..0c2cb50c6a7 100644 --- a/gcc/fortran/check.cc +++ b/gcc/fortran/check.cc @@ -1504,7 +1504,7 @@ gfc_check_associated (gfc_expr *pointer, gfc_expr *target) argument of intrinsic inquiry functions. */ if (pointer->rank != -1 && !rank_check (target, 0, pointer->rank)) t = false; - if (target->rank > 0) + if (target->rank > 0 && target->ref) { for (i = 0; i < target->rank; i++) if (target->ref->u.ar.dimen_type[i] == DIMEN_VECTOR)