Le 25/08/2026 à 01:32, Jerry D a écrit :
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 31cac1dd818..f1577f482b9 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -18886,7 +18886,7 @@ skip_interfaces:
if (sym->attr.value && sym->ts.type == BT_CHARACTER)
{
gfc_charlen *cl = sym->ts.u.cl;
- if (!cl || !cl->length || cl->length->expr_type != EXPR_CONSTANT)
+ if (!cl)
{
gfc_error ("Character dummy variable %qs at %L with VALUE "
"attribute must have constant length",
Since we are starting to accept non-constant length, the error message
should be updated.
OK with that change.
