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)
> {
