===================================================================
@@ -218,6 +218,9 @@ gfc_resolve_adjustl (gfc_expr *f, gfc_expr *string
{
f->ts.type = BT_CHARACTER;
f->ts.kind = string->ts.kind;
+ if (string->ts.u.cl)
+ f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl);
+
f->value.function.name = gfc_get_string ("__adjustl_s%d", f->ts.kind);
}
@@ -227,6 +230,9 @@ gfc_resolve_adjustr (gfc_expr *f, gfc_expr *string
{
f->ts.type = BT_CHARACTER;
f->ts.kind = string->ts.kind;
+ if (string->ts.u.cl)
+ f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl);
+
f->value.function.name = gfc_get_string ("__adjustr_s%d", f->ts.kind);
}