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