https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103413
--- Comment #2 from kargl at gcc dot gnu.org --- (In reply to kargl from comment #1) > diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c > index 2bf21434a42..971c2fa1dd6 100644 > --- a/gcc/fortran/match.c > +++ b/gcc/fortran/match.c > @@ -4447,6 +4447,15 @@ alloc_opt_list: > goto cleanup; > } > > + /* A BOZ cannot be a source expression. */ > + if (ts.type != BT_BOZ) Got the logic backwards here! Should be ts.type == BT_BOZ. > + { > + gfc_error ("boz-literal-constant cannot be a source expression " > + "at %L", &tmp->where); > + goto cleanup; > + } > + > + > /* The next 2 conditionals check C631. */ > if (ts.type != BT_UNKNOWN) > { > @@ -4484,6 +4493,14 @@ alloc_opt_list: > goto cleanup; > } > > + /* A BOZ cannot be a source expression. */ > + if (ts.type != BT_BOZ) Ditto. > + { > + gfc_error ("boz-literal-constant cannot be a mode expression " > + "at %L", &tmp->where); > + goto cleanup; > + } > + > /* Check F08:C637. */ > if (ts.type != BT_UNKNOWN) > {