https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104212
anlauf at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever confirmed|0 |1 Last reconfirmed| |2022-01-24 Priority|P3 |P4 CC| |anlauf at gcc dot gnu.org --- Comment #1 from anlauf at gcc dot gnu.org --- Confirmed. We simply need a check on argument DIM: diff --git a/gcc/fortran/check.cc b/gcc/fortran/check.cc index 5fe8d452413..431a803c4c6 100644 --- a/gcc/fortran/check.cc +++ b/gcc/fortran/check.cc @@ -4476,6 +4476,9 @@ gfc_check_parity (gfc_expr *mask, gfc_expr *dim) if (!array_check (mask, 0)) return false; + if (!dim_check (dim, 1, false)) + return false; + if (!dim_rank_check (dim, mask, false)) return false;