diff options
| author | Erik Edelmann <erik.edelmann@iki.fi> | 2005-10-16 16:59:36 +0300 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-10-16 15:59:36 +0200 |
| commit | c2b27658fe406ae890354dd825e4060d65df7e0a (patch) | |
| tree | 5a62c2ecc9f5536003336480d28af0859099b33d /gcc/fortran/expr.c | |
| parent | a9f7c5705b97b6893f6149108d73b668449d48eb (diff) | |
| download | gcc-c2b27658fe406ae890354dd825e4060d65df7e0a.tar.gz | |
re PR fortran/22273 (problem to declare a character variable link to an intent(out) object)
2005-10-16 Erik Edelmann <erik.edelmann@iki.fi>
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
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 78b811a628b..16d35c4edb0 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) { |