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

From-SVN: r86489

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 313d5a2166e31ac890364e886503d94a5586d970..3bf74a06ffe3736addaaa63a990d348404eb5507 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