From: pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 23 May 2004 23:52:18 +0000 (+0000)
Subject: 	* expr.c (check_inquiry): Remove bogus tests.
X-Git-Tag: upstream/4.9.2~71082
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=94082ba256e848cef36dc0d1dffaed826bd0116d;p=platform%2Fupstream%2Flinaro-gcc.git

	* 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
---

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  <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 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  <paul@codesourcery.com>
+
+	* gfortran.fortran-torture/compile/inquiry_1.f90: New test.
+
 2004-05-23  Mark Mitchell  <mark@codesourcery.com>
 
 	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