From 7746c5c31a9d121d17c534c6d676c22e28645f66 Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Tue, 24 Aug 2004 16:20:45 +0000 Subject: [PATCH] * gfortran.dg/entry_2.f90: New test. From-SVN: r86489 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/entry_2.f90 | 10 ++++++++++ 2 files changed, 14 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/entry_2.f90 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 + + * gfortran.dg/entry_2.f90: New test. + 2004-08-24 Nathan Sidwell 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 -- 2.30.2