1! { dg-do compile }
2
3  double precision :: arr(5, 8)
4  call bar (arr)
5contains
6  subroutine foo (arr)
7    double precision :: arr(:,:)
8    arr(3, 4) = 24
9  end subroutine foo
10  subroutine bar (arr)
11    double precision :: arr(5,*)
12    call foo (arr)   ! { dg-error "cannot be an assumed-size array" }
13    call foo (arr (:, :8))
14  end subroutine
15end
16