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