Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/44457 - no array-subscript actual argument

!                    for an asynchronous dummy

!

  integer :: a(10), sect(3)

  sect = [1,2,3]

  call f(a(sect))    ! { dg-error "incompatible" }

  call f(a(::2))

contains

  subroutine f(x)

    integer, asynchronous :: x(:)

  end subroutine f

end