Subversion Repositories openrisc

! { dg-do compile }

! Tests fix for PR25070; was no error for actual and assumed shape

! dummy ranks not matching.

! Contributed by Joost VandeVondele  

module addon

  interface extra

    function foo (y)

      integer :: foo (2), y (:)

    end function foo

  end interface extra

end module addon

  use addon

  INTEGER :: I(2,2)

  I=RESHAPE((/1,2,3,4/),(/2,2/))

  CALL TST(I)   ! { dg-error "Rank mismatch in argument" }

  i = foo (i)   ! { dg-error "Rank mismatch|Incompatible ranks" }

CONTAINS

  SUBROUTINE TST(I)

    INTEGER :: I(:)

    write(6,*) I

  END SUBROUTINE TST

END

! { dg-final { cleanup-modules "addon" } }