gcc/testsuite/gfortran.dg/class_11.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 41556
   4 ! Contributed by Damian Rouson <damian@rouson.net>
   5
   6   implicit none
   7
   8   type ,abstract :: object
   9   contains
  10     procedure(assign_interface) ,deferred :: assign
  11     generic  :: assignment(=) => assign
  12   end type
  13
  14   abstract interface
  15     subroutine assign_interface(lhs,rhs)
  16       import :: object
  17       class(object) ,intent(inout) :: lhs
  18       class(object) ,intent(in)    :: rhs
  19     end subroutine
  20   end interface
  21
  22 ! PR 41937
  23 ! Contributed by Juergen Reuter <reuter@physik.uni-freiburg.de>
  24
  25   type, abstract :: cuba_abstract_type
  26      integer :: dim_f = 1
  27      real, dimension(:), allocatable :: integral
  28   end type cuba_abstract_type
  29
  30 contains
  31
  32     subroutine cuba_abstract_alloc_dim_f(this)
  33       class(cuba_abstract_type) :: this
  34       allocate(this%integral(this%dim_f))
  35     end subroutine cuba_abstract_alloc_dim_f
  36
  37 end