diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 86adb81..6784b07 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1605,15 +1605,6 @@ gfc_verify_c_interop_param (gfc_symbol *sym) sym->name, &sym->declared_at, sym->ns->proc_name->name)) retval = false; - else if (!sym->attr.dimension) - { - /* FIXME: Use CFI array descriptor for scalars. */ - gfc_error ("Sorry, deferred-length scalar character dummy " - "argument %qs at %L of procedure %qs with " - "BIND(C) not yet supported", sym->name, - &sym->declared_at, sym->ns->proc_name->name); - retval = false; - } } else if (sym->attr.value && (!cl || !cl->length @@ -1636,20 +1627,6 @@ gfc_verify_c_interop_param (gfc_symbol *sym) "attribute", sym->name, &sym->declared_at, sym->ns->proc_name->name)) retval = false; - else if (!sym->attr.dimension - || sym->as->type == AS_ASSUMED_SIZE - || sym->as->type == AS_EXPLICIT) - { - /* FIXME: Valid - should use the CFI array descriptor, but - not yet handled for scalars and assumed-/explicit-size - arrays. */ - gfc_error ("Sorry, character dummy argument %qs at %L " - "with assumed length is not yet supported for " - "procedure %qs with BIND(C) attribute", - sym->name, &sym->declared_at, - sym->ns->proc_name->name); - retval = false; - } } else if (cl->length->expr_type != EXPR_CONSTANT || mpz_cmp_si (cl->length->value.integer, 1) != 0) |