diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/expr.c | 9 |
2 files changed, 4 insertions, 9 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8338de9bc6c..c9a4f7decd5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-05-25 Paul Brook <paul@codesourcery.com> + + * expr.c (check_inquiry): Remove bogus tests. + 2004-05-23 Paul Brook <paul@codesourcery.com> PR fortran/13773 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++) |
