2 ! { dg-options "-fcoarray=single" }
9 elemental
subroutine f(x
)
10 class(t
), intent(inout
) :: x
! Valid
12 elemental
subroutine g(y
) ! { dg-error "Coarray dummy argument 'y' at .1. to elemental procedure" }
13 class(t
), intent(inout
) :: y
[*]
