diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-10-16 13:59:36 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-10-16 13:59:36 +0000 |
| commit | ec7d1569362ff61904f7d618062fd00b89fc63f4 (patch) | |
| tree | 5a62c2ecc9f5536003336480d28af0859099b33d /gcc/fortran/expr.c | |
| parent | 22041d3fafbeaf76d756a28ddba0cbc1e2fd4a08 (diff) | |
| download | ppe42-gcc-ec7d1569362ff61904f7d618062fd00b89fc63f4.tar.gz ppe42-gcc-ec7d1569362ff61904f7d618062fd00b89fc63f4.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105460 138bc75d-0d04-0410-961f-82ee72b054a4
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) { |
