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