blob: e82567c2559edf07c148f6265291b9707a7791ac [file] [log] [blame]
! { dg-do run }
!
! PR 46313: [OOP] class container naming collisions
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
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)) STOP 1
end