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