gcc/testsuite/gfortran.dg/coarray_class_1.f90

   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 !
  10 module 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
  19 contains
  20   subroutine output (this)
  21     class(periodic_2nd_order), intent(in) :: this
  22   end subroutine
  23 end module