From: Paul Brook <paul@codesourcery.com>
Date: Tue, 24 Aug 2004 16:20:45 +0000 (+0000)
Subject: * gfortran.dg/entry_2.f90: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7746c5c31a9d121d17c534c6d676c22e28645f66;p=gcc.git

* gfortran.dg/entry_2.f90: New test.

From-SVN: r86489
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 313d5a2166e..3bf74a06ffe 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-24  Paul Brook  <paul@codesourcery.com>
+
+	* gfortran.dg/entry_2.f90: New test.
+
 2004-08-24  Nathan Sidwell  <nathan@codesourcery.com>
 
 	PR c++/16889
diff --git a/gcc/testsuite/gfortran.dg/entry_2.f90 b/gcc/testsuite/gfortran.dg/entry_2.f90
new file mode 100644
index 00000000000..5c0a32e52be
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/entry_2.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! Arguments to procedures with multiple entry points may be absent, however
+! they are not optional, unless explicitly maked as such.
+subroutine foo(i, a, b)
+  logical a(2, 2)
+  logical b(1)
+  ! Check we don't get an "DIM must not be optional" error
+  a = any(b, i)
+entry bar()
+end subroutine