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