blob: 9bd87f9673405dd0cb66d360b61c5a5d894eec9b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do compile }
! { dg-options "-fcoarray=lib" }
type t
integer :: x
end type t
class(t), allocatable :: a[:]
allocate(t :: a[*])
a%x = this_image()
call foo(a[i]) ! { dg-error "Coindexed polymorphic actual argument at .1. is passed polymorphic dummy argument" }
contains
subroutine foo(y)
class(t) :: y
print *, y%x
end subroutine foo
end
|
