gcc/testsuite/gfortran.dg/assumed_rank_13.f90

   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)
  13 contains
  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
  26 end