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

From-SVN: r86489

* gfortran.dg/entry_2.f90: New test.
From-SVN: r86489
7746c5c3 · Paul Brook · Paul Brook · f8ad2d21 · 7746c5c3 · 7746c5c3
Commit 7746c5c3 authored Aug 24, 2004 by Paul Brook Committed by Paul Brook Aug 24, 2004
Hide whitespace changes
Inline Side-by-side

Showing with 14 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/entry_2.f90
+10 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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

--- a/gcc/testsuite/gfortran.dg/entry_2.f90
+++ b/gcc/testsuite/gfortran.dg/entry_2.f90
+! { 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