gcc/testsuite/gfortran.dg/class_34.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 46448: [4.6 Regression] [OOP] symbol `__copy_...' is already defined
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 module m0
   8   type :: t
   9   end type
  10 end module
  11
  12 module m1
  13   use m0
  14   class(t), pointer :: c1
  15 end module
  16
  17 module m2
  18   use m0
  19   class(t), pointer :: c2
  20 end module
  21
  22 end
  23
  24 ! { dg-final { cleanup-modules "m0 m1 m2" } }