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
|
