Subversion Repositories openrisc

! { dg-do compile }

  double precision :: arr(5, 8)
  call bar (arr)
contains
  subroutine foo (arr)
    double precision :: arr(:,:)
    arr(3, 4) = 24
  end subroutine foo
  subroutine bar (arr)
    double precision :: arr(5,*)
    call foo (arr)   ! { dg-error "cannot be an assumed-size array" }
    call foo (arr (:, :8))
  end subroutine
end