For the following program, one gets bogus errors - once for the dummy argument and once for the generated __copy function (src, dst):

$ gfortran -fcoarray=single test.f90
    class(t) :: x
                 1
Error: Component '_def_init' at (1) with coarray component shall be a nonpointer, nonallocatable scalar
    class(t) :: x
                 1
Error: Variable 'dst' at (1) is INTENT(OUT) and can thus not be an allocatable coarray or have coarray components
    class(t) :: x
                 1
Error: Component '_def_init' at (1) with coarray component shall be a nonpointer, nonallocatable scalar



type t
  integer, allocatable :: a[:]
end type t

contains
  subroutine sub(x)
    class(t) :: x
  end subroutine sub
end