gcc/testsuite/gfortran.dg/class_35.f90

   1 ! { dg-do run }
   2 !
   3 ! PR 46313: [OOP] class container naming collisions
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7 module one
   8   type two_three
   9   end type
  10 end module
  11
  12 module one_two
  13   type three
  14   end type
  15 end module
  16
  17 use one
  18 use one_two
  19 class(two_three), allocatable :: a1
  20 class(three), allocatable :: a2
  21
  22 if (same_type_as(a1,a2)) call abort()
  23
  24 end
  25
  26 ! { dg-final { cleanup-modules "one one_two" } }