blob: 87a5c871294a4e89e8f12cec3fb8956161ef36b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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)) call abort()
end
|
