diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/entry_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_2.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/entry_2.f90 b/gcc/testsuite/gfortran.dg/entry_2.f90 new file mode 100644 index 000000000..5c0a32e52 --- /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 |