1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4! PR fortran/51632
5!
6! Was rejected before as __def_init and __copy were
7! resolved and coarray components aren't valid in this
8! context
9!
10module periodic_2nd_order_module
11  implicit none
12
13  type periodic_2nd_order
14    real, allocatable :: global_f(:)[:]
15  contains
16    procedure :: output
17  end type
18
19contains
20  subroutine output (this)
21    class(periodic_2nd_order), intent(in) :: this
22  end subroutine
23end module
24