1! { dg-do compile }
2!
3! PR fortran/57458
4!
5!
6
7  integer, pointer, asynchronous :: i(:)
8  integer, pointer, volatile :: j(:)
9  call foo(i)
10  call foo2(i)
11  call foo3(j)
12  call foo4(j)
13contains
14  subroutine foo(x)
15    type(*), dimension(:), asynchronous :: x
16  end subroutine foo
17  subroutine foo2(x)
18    type(*), dimension(..), asynchronous :: x
19  end subroutine foo2
20  subroutine foo3(x)
21    type(*), dimension(:), asynchronous :: x
22  end subroutine foo3
23  subroutine foo4(x)
24    type(*), dimension(..), asynchronous :: x
25  end subroutine foo4
26end
27