1! { dg-do compile }
2! Tests fix for PR25070; was no error for actual and assumed shape
3! dummy ranks not matching.
4! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
5
6module addon
7  interface extra
8    function foo (y)
9      integer :: foo (2), y (:)
10    end function foo
11  end interface extra
12end module addon
13
14  use addon
15  INTEGER :: I(2,2)
16  I=RESHAPE((/1,2,3,4/),(/2,2/))
17  CALL TST(I)   ! { dg-error "Rank mismatch in argument" }
18  i = foo (i)   ! { dg-error "Rank mismatch|Incompatible ranks" }
19CONTAINS
20  SUBROUTINE TST(I)
21    INTEGER :: I(:)
22    write(6,*) I
23  END SUBROUTINE TST
24END
25