* gfortran.dg/entry_2.f90: New test.
authorPaul Brook <paul@codesourcery.com>
Tue, 24 Aug 2004 16:20:45 +0000 (16:20 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Tue, 24 Aug 2004 16:20:45 +0000 (16:20 +0000)
From-SVN: r86489

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/entry_2.f90 [new file with mode: 0644]

index 313d5a2166e31ac890364e886503d94a5586d970..3bf74a06ffe3736addaaa63a990d348404eb5507 100644 (file)
@@ -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
@@ -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