summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/asynchronous_3.f03
blob: dfc5e6ea904cc8a8fa0bfe106353258fc6b01c51 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
! { 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