https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103413
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed| |2021-11-24
Status|UNCONFIRMED |NEW
Priority|P3 |P4
CC| |kargl at gcc dot gnu.org
Ever confirmed|0 |1
--- Comment #1 from kargl at gcc dot gnu.org ---
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)
+ {
+ 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)
+ {
+ gfc_error ("boz-literal-constant cannot be a mode expression "
+ "at %L", &tmp->where);
+ goto cleanup;
+ }
+
/* Check F08:C637. */
if (ts.type != BT_UNKNOWN)
{
