Subversion Repositories openrisc

! { dg-do run }

!

! PR 46313: [OOP] class container naming collisions

!

! Contributed by Tobias Burnus 

module one

  type two_three

  end type

end module

module one_two

  type three

  end type

end module

use one

use one_two

class(two_three), allocatable :: a1

class(three), allocatable :: a2

if (same_type_as(a1,a2)) call abort()

end

! { dg-final { cleanup-modules "one one_two" } }