[Bug fortran/119199] valgrind error in translate_common

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #2 from anlauf at gcc dot gnu.org ---
Likely r15-4104.

Null pointer dereference, obviously fixed by:

diff --git a/gcc/fortran/trans-common.cc b/gcc/fortran/trans-common.cc
index 70b45174f84..2db50da20dd 100644
--- a/gcc/fortran/trans-common.cc
+++ b/gcc/fortran/trans-common.cc
@@ -1218,7 +1218,7 @@ translate_common (gfc_common_head *common, gfc_symbol
*var_list)
   align = 1;
   saw_equiv = false;

-  if (var_list->attr.omp_allocate)
+  if (var_list && var_list->attr.omp_allocate)
     gfc_error ("Sorry, !$OMP allocate for COMMON block variable %qs at %L "
               "not supported", common->name, &common->where);