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