gcc/testsuite/gfortran.dg/asynchronous_3.f03

   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))
  11 contains
  12   subroutine f(x)
  13     integer, asynchronous :: x(:)
  14   end subroutine f
  15 end