diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-08-24 16:20:45 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-24 16:20:45 +0000 |
| commit | 7746c5c31a9d121d17c534c6d676c22e28645f66 (patch) | |
| tree | a73fb67578e31dc7d095a7f932b8a51eea58d3cb /gcc | |
| parent | f8ad2d219e145753abb13bf84b606a41df1ad5bb (diff) | |
| download | gcc-7746c5c31a9d121d17c534c6d676c22e28645f66.zip gcc-7746c5c31a9d121d17c534c6d676c22e28645f66.tar.gz gcc-7746c5c31a9d121d17c534c6d676c22e28645f66.tar.bz2 | |
* gfortran.dg/entry_2.f90: New test.
From-SVN: r86489
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_2.f90 | 10 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 313d5a2..3bf74a0 100644 --- 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 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 |