1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4! PR fortran/52013
5!
6type t
7end type t
8contains
9  elemental subroutine f(x)
10    class(t), intent(inout) :: x ! Valid
11  end subroutine
12  elemental subroutine g(y) ! { dg-error "Coarray dummy argument 'y' at .1. to elemental procedure" }
13    class(t), intent(inout) :: y[*]
14  end subroutine
15end
16