diff options
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 |