From c2b27658fe406ae890354dd825e4060d65df7e0a Mon Sep 17 00:00:00 2001 From: Erik Edelmann Date: Sun, 16 Oct 2005 16:59:36 +0300 Subject: re PR fortran/22273 (problem to declare a character variable link to an intent(out) object) 2005-10-16 Erik Edelmann fortran/ PR 22273 * expr.c (check_inquiry): Add "len" to inquiry_function. testsuite/ PR fortran/22273 * gfortran.dg/spec_expr_2.f90: New. From-SVN: r105460 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/expr.c | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7f26375..dca2ef2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-10-16 Erik Edelmann + + PR 22273 + * expr.c (check_inquiry): Add "len" to inquiry_function. + 2005-10-14 Jakub Jelinek * primary.c (match_boz_constant): Add missing break after gfc_error. diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 78b811a..16d35c4 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1355,7 +1355,7 @@ check_inquiry (gfc_expr * e) /* FIXME: This should be moved into the intrinsic definitions, to eliminate this ugly hack. */ static const char * const inquiry_function[] = { - "digits", "epsilon", "huge", "kind", "maxexponent", "minexponent", + "digits", "epsilon", "huge", "kind", "len", "maxexponent", "minexponent", "precision", "radix", "range", "tiny", "bit_size", "size", "shape", "lbound", "ubound", NULL }; @@ -1376,10 +1376,9 @@ check_inquiry (gfc_expr * e) if (e == NULL || e->expr_type != EXPR_VARIABLE) return FAILURE; - /* At this point we have a numeric inquiry function with a variable - argument. The type of the variable might be undefined, but we - need it now, because the arguments of these functions are allowed - to be undefined. */ + /* At this point we have an inquiry function with a variable argument. The + type of the variable might be undefined, but we need it now, because the + arguments of these functions are allowed to be undefined. */ if (e->ts.type == BT_UNKNOWN) { -- cgit v1.1