2 ! { dg-options "-fcoarray=single" }
10 elemental
subroutine foo0(v
) ! OK
11 class(t
), intent(in
) :: v
14 elemental
subroutine foo1(w
) ! { dg-error "Argument 'w' of elemental procedure at .1. cannot have the ALLOCATABLE attribute" }
15 class(t
), allocatable
, intent(in
) :: w
18 elemental
subroutine foo2(x
) ! { dg-error "Argument 'x' of elemental procedure at .1. cannot have the POINTER attribute" }
19 class(t
), pointer, intent(in
) :: x
22 elemental
subroutine foo3(y
) ! { dg-error "Coarray dummy argument 'y' at .1. to elemental procedure" }
23 class(t2
), intent(in
) :: y
[*]
26 elemental
subroutine foo4(z
) ! { dg-error "Argument 'z' of elemental procedure at .1. must be scalar" }
27 class(t
), intent(in
) :: z(:)