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