Subversion Repositories openrisc

! { dg-do compile }

! Test the fix for PR40158, where the errro message was not clear about scalars.

!

! Contributed by Tobias Burnus  

!

  implicit none

  integer :: i(4,5),j

  i = 0

  call sub1(i)

  call sub1(j)  ! { dg-error "rank-1 and scalar" }

  call sub2(i)  ! { dg-error "scalar and rank-2" }

  call sub2(j)

  print '(5i0)', i

contains

  subroutine sub1(i1)

    integer :: i1(*)

    i1(1) = 2

  end subroutine sub1

  subroutine sub2(i2)

    integer :: i2

    i2 = 2

  end subroutine sub2

end