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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86489 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 313d5a2..3bf74a0 100644 (file)
--- 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 (file)
index 0000000..5c0a32e
--- /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