| ! Passing of NULL() with and without MOLD as actual argument |
| ! Testcase derived from pr55978 comment#16 |
| integer, allocatable :: a(:) |
| character(10), pointer :: c |
| character(10), pointer :: cp(:) |
| integer, allocatable :: a(:) |
| call sub (null (d%a)) ! OK |
| call sub (null (d%p)) ! OK |
| call sub (null ()) ! was erroneously rejected with: |
| ! Actual argument contains too few elements for dummy argument 'x' (1/4) |
| call bla (null()) ! was erroneously rejected with: |
| ! Actual argument contains too few elements for dummy argument 'x' (1/10) |
| call bar (null()) ! was erroneously rejected with: |
| ! Actual argument contains too few elements for dummy argument 'x' (1/70) |
| integer, intent(in), optional :: x(4) |
| character(len=10), intent(in), optional :: x |
| character(len=10), intent(in), optional :: x(:) |
| character(len=10), intent(in), optional :: x(7) |