From 94082ba256e848cef36dc0d1dffaed826bd0116d Mon Sep 17 00:00:00 2001 From: pbrook Date: Sun, 23 May 2004 23:52:18 +0000 Subject: [PATCH] * 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 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/expr.c | 9 --------- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.fortran-torture/compile/inquiry_1.f90 | 8 ++++++++ 4 files changed, 16 insertions(+), 9 deletions(-) create mode 100644 gcc/testsuite/gfortran.fortran-torture/compile/inquiry_1.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8338de9..c9a4f7d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-05-25 Paul Brook + + * expr.c (check_inquiry): Remove bogus tests. + 2004-05-23 Paul Brook PR fortran/13773 diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 1546dec..122ba38 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++) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 82101e4..d32a76d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2004-05-25 Paul Brook + + * gfortran.fortran-torture/compile/inquiry_1.f90: New test. + 2004-05-23 Mark Mitchell PR c++/15165 diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/inquiry_1.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/inquiry_1.f90 new file mode 100644 index 0000000..12d67fc --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/inquiry_1.f90 @@ -0,0 +1,8 @@ +! Check that inquiry functions are allowed as specification expressions. +subroutine inquiry(x1) + implicit none + real, dimension(1:), intent(out) :: x1 + real, dimension(1:size(x1)) :: x3 + x3 = 0 + x1 = x3 +end subroutine -- 2.7.4