diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 6c38935..66f24c6 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1110,11 +1110,13 @@ is_CFI_desc (gfc_symbol *sym, gfc_expr *e) if (sym && sym->attr.dummy && sym->ns->proc_name->attr.is_bind_c - && sym->attr.dimension && (sym->attr.pointer || sym->attr.allocatable - || sym->as->type == AS_ASSUMED_SHAPE - || sym->as->type == AS_ASSUMED_RANK)) + || (sym->attr.dimension + && (sym->as->type == AS_ASSUMED_SHAPE + || sym->as->type == AS_ASSUMED_RANK)) + || (sym->ts.type == BT_CHARACTER + && (!sym->ts.u.cl || !sym->ts.u.cl->length)))) return true; return false; |