diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-23 23:52:18 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-23 23:52:18 +0000 |
| commit | 94082ba256e848cef36dc0d1dffaed826bd0116d (patch) | |
| tree | 561a0d66c9c9fabf406da979b78b51dc375a62d2 /gcc/fortran/expr.c | |
| parent | ac17414b57db111acb5f11857d42c8f52c599c81 (diff) | |
| download | ppe42-gcc-94082ba256e848cef36dc0d1dffaed826bd0116d.tar.gz ppe42-gcc-94082ba256e848cef36dc0d1dffaed826bd0116d.zip | |
* expr.c (check_inquiry): Remove bogus tests.
testsuite/
* gfortran.fortran-torture/compile/inquiry_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82177 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 1546dec2e09..122ba38ff61 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1273,15 +1273,6 @@ check_inquiry (gfc_expr * e) int i; - /* These functions must have exactly one argument. */ - if (e->value.function.actual == NULL - || e->value.function.actual->next != NULL) - return FAILURE; - - if (e->value.function.name != NULL - && e->value.function.name[0] != '\0') - return FAILURE; - name = e->symtree->n.sym->name; for (i = 0; inquiry_function[i]; i++) |
