1! { dg-do compile }
2!
3! PR fortran/44457 - no array-subscript actual argument
4!                    for an asynchronous dummy
5!
6
7  integer :: a(10), sect(3)
8  sect = [1,2,3]
9  call f(a(sect))    ! { dg-error "incompatible" }
10  call f(a(::2))
11contains
12  subroutine f(x)
13    integer, asynchronous :: x(:)
14  end subroutine f
15end
16